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内 容 t 要 


本 书 介绍 数学 软件 MATLAB 在 理论 力学 教学 中 的 应 用 . 全 书 分 为 两 章 ， 

第 1 章 简明 地 介绍 MATLAB 的 基础 知识 ， 第 2 章 将 理论 力学 教材 中 精 选 的 24 
个 典型 的 线性 与 非 线性 问题 进行 数值 求解 ， 给 出 了 求解 过 程 与 程序 ， 并 将 结果 
做 成 模拟 实物 运动 的 动画 。 本 书 用 MATLAB 对 理论 力学 教材 中 的 微分 方程 进 
行 数值 求解 ， 有 一 定 的 独创 性 . 书 中 大 量 的 程序 实例 不 仅 实 用 ， 也 有 许多 使 用 
MATLAB 的 独特 技巧 , 值得 借鉴 。 全 书 将 数值 计算 、 学 习 MATLAB 与 学 习 理 论 
FRA, WARE, BURMA a, 循序渐进 ， 读 者 只 要 具备 大 学 理 
工科 二 年 级 的 知识 就 可 以 看 懂 本 书 。 本 书 既 可 作为 大 学 选修 课 的 教材 ， 也 可 作 
为 学 习 理 论 力学 的 参考 书 , 还 可 作为 学 习 MATLAB 编程 技巧 的 参考 书 . 本 书 附 
送 光 盘 一 张 ， 其 上 有 书 中 的 全 部 程序 和 一 个 多 媒体 课件 ， 可 供 教师 在 课 符 上 作 
教学 演示 之 用 . 此 外 , 光盘 上 还 有 两 段 录 像 ， 分 别 介 绍 和 演示 MATLAB 的 基本 
用 法 及 多 媒体 课件 的 使 用 . 
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计算 机 是 信息 时 代 最 重要 的 标志 之 一 .计算 机 及 计算 方法 的 高 速 发 展 使 得 
计算 机 模拟 成 为 物理 研究 中 除 实验 、 理 论 分 析 之 外 的 第 三 种 研究 手段 . 这 种 变 
化 势必 会 反映 到 大 学 物理 课程 的 教学 中 来 . 又 由 于 日 新 月 异 的 计算 软件 的 优秀 
性 能 ， 使 得 学 习 计 算 技 术 也 成 为 一 项 轻松 愉快 的 工作 . 原来 在 大 学 理论 物理 的 
教学 中 ， 对 不 能 求解 析 解 的 常 微分 方程 和 偏 微分 方程 是 不 要 求学 生 午 握 其 解法 
HJ, 今天 借助 先进 的 数学 软件 ， 我们 已 经 可 以 很 方便 地 教会 学 生 如 何 去 求 解 这 
些 方程 . 学 生 在 掌握 这 些 解法 之 后 ， 不 仅 提高 了 能 力 ， 也 能 更 深刻 地 理解 其 中 
的 物理 规律 . 换言之 ， 在 教学 中 已 经 有 可 能 把 理论 物理 的 学 习 与 培养 学 生 用 计 
算 机 通过 数值 计算 来 研究 物理 问题 的 能 力 结合 起 来 . 

《理论 力学 计算 机 模拟 》 就 是 上 述 变化 的 产物 ， 它 是 我 们 为 北京 师范 大 学 
物理 系 二 年 级 本 科 生 新 开设 的 一 门 课程 ， 该 课程 与 理论 力学 课 并 行 开 设 ， 教 学 
安排 是 : 先 用 8 学 时 为 学 生 介绍 MATLAB 的 基本 知识 ， 然 后 安排 学 生 每 周 2 学 
时 的 上 机 ， 让 学 生 完 成 一 定数 量 的 实验 题目 . 期 末 再 布置 一 些 题目 或 由 学 生 自 
己 选 题 作 为 考察 成 绩 之 用 . 本 书 就 是 这 门 课程 的 教材 ， 书 中 的 程序 ， 多 数 来 自 
于 学 生 的 工作 ， 再 经 过 教师 的 加 工整 理 而 成 。 

开设 这 门 课 程 的 指导 思想 是 : 

1. 理论 力学 教材 现代 化 呼唤 新 的 教学 内 容 和 新 的 教学 手段 

长 期 以 来 ， 理 论 力学 教材 的 内 容 基 本 上 是 停留 在 牛顿 理论 和 拉 格 朗 日 、 哈 
密 顿 理论 的 框架 内 ， 数 学 上 仅 限 于 解析 求解 线性 方程 ,这 种 状况 已 经 不 能 适应 
当前 的 科技 发 展 的 形势 。 20 世纪 60 年 代 取 得 突破 并 蓬勃 发 展 起 来 的 非 线 性 
科学 ， 对 当前 和 未 来 的 科学 发 展 起 着 重要 的 作用 . 新 世纪 的 大 学 生 和 急需 更 新 观 
念 ， 把 目光 引 向 科学 的 前 沿 一 一 非 线 性 科学 。 为 此 ， 作 为 教材 现代 化 的 一 个 重 
要 内 容 ， 我 们 将 非 线 性 振动 的 基础 知识 作为 介绍 非 线 性 科学 的 一 个 窗口 ， 作 为 
新 的 基础 理论 引入 了 新 编 的 理论 力学 教材 . 

非 线 性 科学 的 许多 内 容 都 是 计算 物理 的 重要 成 果 , 在 非 线 性 科学 中 遇 到 的 
大 量 的 非 线性 微分 方程 都 是 用 计算 机 数值 求解 的 . 在 教材 中 介绍 非 线性 振动 ， 
最 好 让 学 生 直 接 学 习 用 计算 机 的 数值 计算 功能 和 可 视 化 功能 来 揭示 和 探索 非 线 
性 现象 ， 这样 做 同时 也 解决 了 教材 中 原 有 的 其 他 非 线性 问题 . 

2 . 教学 手段 和 方法 的 现代 化 带 来 了 新 的 教学 目标 

在 当今 的 信息 时 代 ， 计 算 机 无 孔 不 入 ,无 处 不 在 . 计算 机 作为 现代 化 的 教 
学 手段 ， 已 经 广泛 地 应 用 于 教学 之 中 ， 但 更 多 的 是 用 作 多 媒体 演示 ， 是 教师 的 
教学 辅助 工具 . 如 前 所 述 ， 计 算 机 模拟 已 经 成 了 物理 研究 中 的 第 三 种 手段 ， 如 
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果 把 培养 学 生 用 计算 机 数值 计算 研究 物理 问题 的 能 力作 为 新 的 教学 目标 ， 则 
计算 机 不 仅仅 是 教师 辅助 教学 的 工具 ， 也 是 学 生 学 习 的 必 备 工具 . 与 多 媒体 课 
件 相 比 ， 让 学 生 进 行 计 算 机 模拟 实验 ， 使 学 生 由 观看 变 成 参与 ， 由 被 动 接受 变 
成 主动 研究 ， 将 更 能 激发 学 生 的 学 习 兴 趣 ， 调 动 学 生 的 创造 力 ， 发 挥 学 生 的 想 
象 力 ， 帮 助 学 生 更 好 地 完成 学 习 任 务 . 但 是 如 何 去 实 现 这 一 目标 ， 则 是 见 仁 见 
智 . 我 们 在 这 门 课程 的 做 法 是 : 将 理论 物理 的 学 习 与 数值 计算 能 力 的 培养 结合 
起 来 ， 让 学 生 用 计算 机 来 解决 学 习 理 论 力学 中 遇 到 的 计算 问题 ， 强 调 通过 学 用 
结合 的 实践 来 培养 能 力 . 

3. 科学 与 工程 计算 语言 MATLAB 是 数值 计算 的 优秀 工具 

《理论 力学 计算 机 模拟 》 能 够 顺利 开设 的 重要 原因 是 因为 采用 了 MATLAB 
作为 计算 工具 。MATLAB 易学 易 用 ， 对 学 生 而 言 ， 它 是 一 个 真正 的 计算 工具 ， 
而 不 是 一 门 新 的 计算 机 课程 . 学生 只 要 经 过 十 多 个 小 时 的 练习 ， 就 能 用 它 完 成 
所 需要 的 计算 ， 学 生 的 精力 是 在 研究 物理 问题 上 ， 而 不 是 在 编程 计算 上 . 所 以 
在 教学 上 是 以 学 生 探 索 式 自学 与 上 机 实践 为 主 ， 教 师 讲授 为 辅 . 在 基本 上 没有 
增加 学 生 负 担 的 前 提 下 ， 用 很 少 的 学 时 完成 教学 内 容 。 学生 学 习 的 内 容 包 括 用 
MATLAB 数值 求解 常 微分 方程 并 作 时 间 历 程 图 与 相 图 ; 作 快 速 傅 里 叶 变换 并 画 
功率 谱 图 ; 作 符 号 运算 如 用 拉 普 拉 斯 变换 法 解 常 微分 方程 组 ， 作 动画 模拟 与 作 
用 户 界 面 等 . 书 中 的 程序 为 MATLAB 的 编程 应 用 提供 了 许多 实际 的 技巧 和 方 
法 . 由 此 联想 到 ， 数 学 软件 在 物理 中 的 应 用 日 趋 广泛 ， 如 何在 物理 课程 的 教学 
中 反映 出 来 ， 也 是 值得 人 们 思考 的 问题 . 

本 书 的 部 分 内 容 在 2001 年 7 月 由 理论 力学 教学 研究 会 与 北京 师范 大 学 物 
理 系 联合 举办 的 全 国 高 校 理论 力学 教师 讲习 班 上 曾 作 过 介绍 ， 受 到 30 余 所 高 
校 教 师 的 一 致 好 评 . 在 中 国 物 理学 会 举办 的 全 国 多 媒体 与 网 络 物理 教学 成 果 评 
比 大 会 上 本 书 的 程序 获得 一 等 奖 。 在 2001 年 第 8 、10 、11 期 《大 学 物理 》 杂 
志 上 都 有 文章 介绍 这 项 工作 . 在 中 国 物 理学 会 教学 委员 会 七 届 二 次 扩大 会 议 
上 ， 这 项 工作 的 报告 也 引起 了 专家 们 的 广泛 兴趣 和 重视 .我们 希望 通过 本 书 的 
出 版 ， 能 与 更 多 的 教师 和 学 生 进行 交流 ， 也 能 得 到 更 多 的 专家 和 同行 们 的 批评 
指导 。 由 于 这 项 工作 还 在 探索 之 中 ， 作 者 的 学 识 水 平 有 限 。 加 之 时 间 仓 促 ， 书 
中 下 漏 之 处 乃至 错误 难以 完全 避免 ， 欢迎 读者 提出 意见 ， 我 们 的 电子 邮件 地 址 
是 ppffllQ263.net , 

如 果 使 用 本 书 作 为 选修 课 教 材 ， 作 者 建议 ， 教 师 只 须 讲 解 第 1 章 的 基本 内 
容 和 第 2 章 中 几 个 简单 的 例子 , 如 粒子 散射 、 水星 近日 点 的 进 动 和 落体 偏 东 等 ， 
然后 由 学 生 自 己 完成 4~5 个 例子 ,， 如 阻尼 和 斜 抛 运动 、 带 电 粒 子 在 电磁 场 中 的 运 
动 、 小 环 在 转动 大 环 上 的 运动 、 侍 科 摆 、 滑 动 摆 和 倒 摆 的 强迫 振动 等 ,就 可 以 
认为 本 课程 的 教学 要 求 已 经 达到 . 其 余 的 例子 则 作为 选 题 ， 供 教师 考察 学 生 能 
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力 之 用 . 学 生 可 以 根据 兴趣 从 中 选择 一 个 例子 加 以 研究 ， 对 程序 进行 修改 甚至 
重新 编程 。 当然 学 生 也 可 以 利用 学 到 的 知识 去 解决 教科 书 中 其 它 的 习题 . 书 中 
的 程序 仅 供 参考 ， 它 不 是 唯一 的 解法 甚至 不 一 定 是 最 好 的 解法 . 读者 完全 可 以 
独立 地 去 解决 书 中 的 题目 .我 们 的 工作 只 是 抛砖引玉 ， 和 希望 读者 能 编 出 更 优秀 
的 程序 . 

本 书 附 有 光盘 ， 光盘 中 的 readme 是 使 用 说 明 . 光盘 的 dyz 目录 下 是 书 中 第 
1 章 中 各 个 例题 的 程序 ， 每 个 程序 文件 的 命名 与 书 中 相同 。 光 盘 的 Ixsy 目录 下 
是 书 中 的 24 个 实验 题目 的 程序 ， 每 个 程序 文件 的 命名 也 与 书 中 相同 . 在 lxsyjm 
目录 下 是 作成 了 用 户 界面 的 24 个 实验 题目 的 程序 ,这样 即使 不 了 解 程序 和 编 
程 过 程 ， 也 能 方便 地 使 用 这 些 程序 作为 多 媒体 演示 的 课件 .光盘 中 还 有 两 段 教 
学 录像 ， 分 别 介绍 MATLAB 的 基本 用 法 及 多 媒体 课件 的 用 法 . 使 用 本 书 时 , 不 
妨 先 看 看 光盘 上 的 录像 ， 再 实际 演示 一 下 多 媒体 课件 中 的 各 个 程序 ， 这 样 就 会 
对 本 书 内 容 有 一 个 大 致 的 印象 . 然后 去 阅读 书 上 的 内 容 ， 就 很 容易 达到 事 半 功 
ML. 

北京 师范 大 学 物理 系 九 九 届 学 生 在 学 习 本 门 课程 时 所 表现 出 来 的 巨大 热情 
是 本 书 成 功 的 重要 因素 ， 其 中 吴 海 诚 、 江 进 武 、 刘 志 强 、 刘 微 、 李 光世 、 欧 阳 
敏 、 胡 进 良 、 王 平 、 问 静 、 获 雪 飞 、 李 昱 、 刘 艳丽 、 尤 文 龙 等 同学 表现 十 分 突 
出 ,尤其 是 陈 锡 辉 和 贾 砚 宾 两 位 同学 直接 参与 了 本 书 程序 的 整理 与 录入 。 还 有 
九 八 届 的 沈 福 根 、 汤 仙 明 、 孙 永 新 、 吴 国 先 、 曹 周 健 等 同学 曾 参 与 本 书 的 初期 
准备 工作 . 

本 书 的 分 工 是 : KFAR l 章 与 第 2 章 的 程序 并 负责 全 书 的 组 织 、 校 
对 及 将 全 书 用 CCT 系统 排版 ,， 管 靖 、 胡 静 和 卢 圣 治 负责 第 2 章 中 力学 实验 题目 
的 编写 . 

作者 十 分 感谢 清华 大 学 出 版 社 对 本 书 出 版 的 支持 ， 尤 其 感谢 责任 编辑 宋 成 
江 和 韩 燕 丽 为 本 书 所 付出 的 辛勤 劳动 . 


著 者 
2001 Æ 12 A 
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第 1 章 MATLAB 简介 


本 章 介 绍 一 些 MATLAB 的 基本 知识 ， 内 容 侧重 在 物理 计算 中 会 用 到 的 知 
识 ， 如 数据 结构 、 有 关 计 算 的 指令 、 编 程 以 及 图 形 与 动画 的 制作 . 


1.1 预备 知识 


MATLAB 是 矩阵 工作 室 ( Matrix Laboratory ) 的 缩写 ， 它 是 一 个 在 欧美 十 
分 流行 的 通用 性 很 强 的 优秀 数学 软件 , 占据 了 数学 计算 软件 市 场 的 主导 地 位 . 
科技 人 员 和 工程 人 员 即 使 不 掌握 C 语言 或 FORTRAN 语言 ， 只 要 经 过 很 短 时 间 
的 学 习 ， 也 能 利用 它 轻松 地 去 完成 专业 的 科学 计算 和 作 图 的 任务 。 它 不 仅 是 科 
研 的 工具 ， 也 是 高 校 里 的 本 科 生 、 硕 士 和 博士 们 学 习 的 好 帮手 . 

MATLAB 的 基本 特点 有 : 

@ 极 强 的 数值 计算 功能 和 作 图 功能 (可 以 作 动 画 和 用 户 界面 )， 也 有 很 强 
的 符号 计算 功能 . 

@ 图 形 窗口 式 的 操作 界面 ， 一 看 就 懂 ， 一 用 就 会 . 使 用 常用 的 数学 符号 和 
表达 式 ， 贴 近 人 们 的 思维 习惯 。 默认 使 用 复数 与 矩阵 ， 计 算 速 度 快 . 

@ 用 简单 的 指令 就 可 以 完成 大 量 的 计算 与 作 图 功能 .编程 语法 简单 ， 程 序 
设计 方便 . 绝 大 部 分 指令 的 程序 是 开放 的 ， 用 户 可 以 模仿 和 修改 . 

@ 有 大 量 的 不 同 领域 的 专用 工具 箱 , 用 户 还 可 以 开发 自己 的 专用 工具 箱 . 

本 书 选 用 MATLAB 作为 计算 工具 , 就 是 因为 用 数学 软件 编程 ,简单 明了 ， 
一 目 了 然 ， 初学 者 很 快 可 以 掌握 编程 的 思路 和 方法 . 本 书 的 全 部 程序 都 是 用 
MATLAB 编写 的 ， 从 中 可 以 看 到 ， FORTRAN 要 用 数 干 行 的 语句 编写 的 程序 
在 MATLAB 的 程序 中 只 是 寥寥 数 行 像 公 式 一 样 简 单 明 了 的 语句 。 学 习 和 使 用 
MATLAB, 省 时 省 力 , 可 以 把 科技 工作 者 从 繁重 的 编程 劳动 解放 出 来 , 使 他 们 有 
更 多 的 时 间 和 精力 去 研究 物理 规律 本 身 . 

本 章 的 内 容 按 教学 顺序 安排 。 对 某 些 较 简单 的 内 容 ， 本 书 只 是 略 加 介绍 ， 
有 兴趣 的 读者 可 以 参看 本 书 参 考 文献 中 介绍 的 参考 书 . 而 对 一 些 重要 的 又 容易 
令 初 学 者 感到 困惑 的 MATLAB 的 用 法 , 如 正确 区 分 数据 的 类 型 , 解 非 线 性 方程 
的 指令 fsolve 中 优化 选项 (options) 的 用 法 , 解 常 微分 方程 中 函数 文件 (odefile) 的 
编写 ,指令 的 选用 等 , 则 尽量 详细 解释 . 其 中 有 的 是 笔者 自己 应 用 MATLAB 的 
心得 体会 。 所 选 的 例子 大 多 数 是 物理 问题 ， 每 题 都 带 有 参考 程序 . 笔者 认为 ， 
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实际 程序 中 的 技巧 ， 往 往 难 以 用 文字 解释 。 根据 笔者 的 教学 经 验 , 读者 在 学 完 
这 些 内 容 之 后 ,已 经 能 应 用 MATLAB 来 解决 本 书 中 的 物理 问题 了 . 

在 掌握 MATLAB 的 基本 操作 以 后 ， 可 以 顺序 阅读 后 面 的 内 容 ， 也 可 以 从 
中 选择 一 个 自己 感 兴趣 的 课题 去 尝试 编程 解决 它 .在 独立 编程 遇 到 困难 以 后 再 
参考 书 中 的 程序 ,这 比 只 是 将 书 中 程序 在 计算 机 上 演示 一 过 所 能 得 到 的 收获 要 
大 . 编程 能 力 的 高 低 反 映 了 掌握 MATLAB 的 实际 水 平 . 只 有 经 过 独立 编程 的 练 
习 才能 真正 驾驭 MATLAB ， 所 以 读者 一 定 要 学 会 独立 编辑 一 些 程序 . 

本 书 内 容 是 以 MATLAB 6.0 版 本 为 准 , 与 以 前 的 版 本 相 比 , 该 版 本 增加 了 许 
多 人 机 交互 工作 界面 ， 使 用 起 来 更 加 方便 快捷 . 但 是 MATLAB 6.0 与 MATLAB 
5.3 的 指令 变化 不 是 太 大 , 所 以 书 中 的 程序 在 MATLAB 5.3 的 版 本 中 也 能 运行 . 


1.1.1 操作 界面 


1. 操作 桌面 窗口 与 指令 窗口 

在 WINDOWS 操作 系统 的 窗口 中 用 鼠标 双击 MATLAB 的 图 标 即 可 进入 如 
图 1.1 所 示 的 MATLAB 的 操作 桌面 窗口 (Desktop) . 如果 没有 图 标 , 可 利用 matlab 
\bin\win32 目录 下 的 matlab.exe 文件 建立 一 个 。 


Eile Edit View Web Window Help 


DgE| fi e c | | F curent orectory [Comat work =] | 
anei Pad 7 and Windov 


g MATLAB 


4f. image Processing Toolbox To get started, select "MATLAB Help" from the Help menu 
| 


入 只 MATLAB Compiler 

$ «f MATLAB Report Generator 
G A Optimization Toolbox 

t- «f Partial Differential Equation Toolbox 
$ «f Signal Processing Toolbox 


| 
-A Spline Toolbox 


[curmoretoy | | 


图 1.1 MATLAB 操作 桌面 窗口 


这 个 窗口 中 包含 有 五 个 窗口 ， 默 认 的 设置 有 三 个 显示 出 来 ， 另 外 两 个 是 隐 
藏 的 .显示 出 来 的 是 指令 窗 (Command Window) 、 工 作 目 录 窗 口 (Launch Pad) 和 
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指令 记录 窗口 (Command History); 隐藏 的 是 当前 工作 的 内 存 空间 浏览 名 窗口 
(Workspace) 和 当前 工作 目录 窗口 (Current Directory) 。 要 使 五 个 窗口 都 显现 ， 可 
以 依次 逐 层 点 击 操作 桌面 窗口 中 的 菜单 View\Desktop\Five Panel; 恢复 默认 设置 
则 依次 逐 层 点 击 View\Desktop\Default; 由 于 大 多 数 操作 都 是 在 指令 窗 进 行 ， 可 
以 只 显现 指令 和 窗 ， 方 法 是 依次 逐 层 点 击 ViewNDesktopNCommand Window only . 
对 于 MATLAB 6.0 以 前 的 版 本 ， 操 作 界 面 就 是 指令 窗 . 

要 退出 MATLAB 的 方法 有 三 种 : 点 击 操作 桌面 窗口 的 右上 和 角 的 x 号 ， 用 
菜单 File 下 的 Exit MATLAB 或 者 直接 在 指令 窗 中 键入 quit 后 回 车 . 

操作 桌面 窗口 是 MATLAB 提供 给 用 户 的 操作 界面 ， MATLAB 所 有 的 功 
能 都 是 通过 在 操作 桌面 上 各 个 窗口 的 操作 来 实现 的 . 所 以 ,操作 桌面 窗口 是 
MATLAB 的 “大 门 ”"”， 初 学 者 应 该 熟悉 操作 桌面 内 各 个 窗口 的 各 种 操作 . 


2. 指令 窗 的 使 用 

在 指令 窗 内 可 以 进行 数值 计算 、 关 系 运 算 和 逻辑 运算 或 者 调用 MATLAB 的 
各 种 函数 指令 和 程序 . 

例如 指令 demo 是 演示 MATLAB 的 基本 功能 ， 在 指令 窗 中 的 指令 行 提示 符 

>> ”后 键入 

>> demo 
再 按 下 enter 键 ， 就 会 显示 MATLAB Demos 窗口 ， 再 选择 其 中 的 各 个 条 目 并 随 
时 阅读 窗口 内 的 说 明 , 就 可 以 浏览 MATLAB 基本 功能 . 这 种 浏览 往往 是 初学 者 
的 入 门 捷 径 . 注意 指令 行 提 示 符 “>> ”是 在 MATLAB 6.0 的 版 本 中 才 有 的 ， 是 
自动 显现 在 窗口 中 的 ， 以 前 的 版 本 则 没有 ， 绝 不 可 以 自己 输入 一 个 指令 行 提 示 
RE “>>”, 

又 如 指令 ballode 是 自由 下 落 的 小 球 和 地 面 发 生 非 弹性 碰撞 时 的 运动 轨迹 ， 
键入 

>> ballode 
再 按 下 enter 键 ， 就 会 显示 一 个 图 形 窗口 ， 窗口 内 图 形 画 出 了 小 球 的 运动 轨迹 . 

要 计算 表达 式 2sin n /3+ 5i- 2 +3 的 值 ， 可 键入 

>> 2 * sin(pi/3) + 5*i - 2°2/3 
按 下 enter 键 以 后 得 到 


ans = 


0.3987 + 5.0000i 
这 里 ans 是 answer AYER, 72 MATLAB 默认 的 输出 变量 名 。 


5.8 


要 输入 矩阵 A = 可 键入 
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> A= [5,8; 2, 6 ] 
得 到 
A= 


3. 指令 窗 操 作 注 意 事项 

MATLAB 使 用 的 是 双 精 度 的 计算 , 能 自动 识别 复数 ， 指 令 窗 默认 的 显示 格 
式 是 5 位 数字 的 定点 表示 ， 可 以 改变 成 其 它 表 示 格 式 . 比如 说 ， 如 果 要 改 成 15 
位 数字 的 定点 表示 ， 可 用 鼠标 双击 菜单 File\Preferences ， 然 后 在 对 话 窗口 中 选 
择 Command Window ， 再 选 Numeric format 条 目 中 的 long 即 可 . 这 时 在 指令 窗 
输入 

>> pi 
fi F enter 键 以 后 得 到 的 是 


ans = 


3.14159265358979 

如 果 在 对 话 窗口 中 选择 General\Font & Colors ,就 可 以 改变 字体 种 类 、 大 小 和 着 
色 ， 等 等 . 

对 初学 者 ,在 指令 窗 操作 时 还 应 特别 注意 以 下 几 点 : 

@ 所 有 输入 的 指令 、 公 式 或 数值 必须 按 下 回 车 键 以 后 才能 执行 .。 

@ 所 有 的 指令 、 变 量 名 称 都 要 区 分 字母 的 大 小 写 . 

@ 应 该 指定 输出 变量 名 称 ， 否则 MATLAB 将 以 ans 作为 默认 的 输出 变量 名 . 

@ 如 果 不 需要 在 屏幕 上 显示 结果 , 可 以 在 命令 后 面 加 上 分 号 ,如 A = 5 + 8, 

@ 如 果 要 执行 多 个 指令 , 可 以 将 它们 编辑 为 一 个 程序 (方法 见 后 面 介绍 ). 
在 程序 中 ， 如 果 命 令 太 长 ， 在 一 行 写 不 下 ， 可 以 用 三 个 圆 点 ... 分 行 ， 表示 命 
令 延 续 到 下 一 行 。 如 

s =1- 1/2 + 1/3 -1/4 + 1/5 - 1/6 + 1/7 ... 

- 1/8 + 1/9 - 1/10 + 1/11 - 1/12 
OBS —. Ms + 和 减 号 — 前 后 的 空格 数 不 影响 算 符 的 作用 。 


1.1.2 ”在 线 帮助 


MATLAB 有 数 干 条 指令 , 初学 者 不 可 能 也 没有 必要 等 到 学 完 并 记 住 这 些 指 
令 以 后 才 开 始 使 用 MATLAB. 一 般 只 须 对 MATLAB 略 有 了 解 便 可 以 使 用 它 ,， 然 
后 边 用 边 学 , HRA, 直到 精通 . 这 时 最 容易 遇 到 的 问题 是 , 不 了 解 MATLAB 
有 哪些 指令 , 也 找 不 到 自己 想 要 的 指令 , 当然 更 不 会 使 用 这 些 指令 . Ab, 随 着 
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MATLAB 的 推广 应 用 ， MATLAB 的 版 本 更 新 也 在 不 断 加 快 ， 功 能 不 断 增加 ， 
但 各 个 版 本 的 指令 可 能 会 有 不 同 ， 随 时 掌握 新 版 本 的 指令 ， 也 是 用 户 要 解决 的 
问题 .解决 这 些 问 题 都 可 以 借助 MATLAB 的 在 线 帮助 系统 。 MATLAB 的 在 线 
帮助 系统 很 全 面 ， 能 使 用 户 很 方便 地 查阅 到 自己 想 要 的 信息 ， 但 不 同 版 本 的 帮 
助 系统 用 法 有 所 不 同 . 学 会 使 用 在 线 帮 助 系统 ， 常 常 是 学 习 一 种 新 的 软件 的 速 
成 方法 。 

由 于 本 章 只 介绍 了 一 部 分 指令 的 用 法 ， 为 使 读者 了 解 更 多 的 指令 ， 在 附录 
A 分 类 列 出 了 MATLAB 的 一 些 主要 的 但 不 是 全 部 的 指令 . 排列 的 顺序 是 , 在 第 
一 个 条 目 “ 主 要 函数 指令 分 类 ”中 ， 列 出 了 所 有 指令 的 分 类 目录 ， 在 每 类 下 面 
都 包含 知 干 指令 ， 其 后 的 条 目 再 将 这 些 指令 具体 列 出 . 浏览 一 下 ,对 MATLAB 
会 有 一 个 粗略 的 了 解 ， 随 时 查阅 ， 也 很 方便 . 

在 指令 窗 使 用 帮助 系统 的 最 简单 方法 是 键入 

>> help 十 指令 名 称 
它 能 把 一 个 指令 的 语法 和 功能 的 最 基本 信息 直接 显示 在 指令 窗 中 ， 是 最 快捷 的 
取得 帮助 的 途径 . 本 书 中 对 许多 指令 只 介绍 名 称 而 不 介绍 用 法 ， 所 以 使 用 它们 
之 前 可 用 这 个 指令 查 一 下 它们 的 用 法 。 比 如 想 查 询 指 令 fipud 的 用 法 ， 操 作 是 

>> help flipud 

得 到 


FLIPUD Flip matrix in up/down direction. 


FLIPUD(X) returns X with columns preserved and rows flipped 


in the up/down direction. For example, 


X=14 becomes 3 6 
25 25 
36 14 


See also FLIPLR, ROT90, FLIPDIM. 
帮助 系统 告诉 我 们 ， 这 个 指令 的 用 法 是 将 矩阵 的 各 列 上 下 翻转 ， 并 且 举 了 一 个 
例子 来 说 明 它 的 用 法 . 此外， 与 这 个 指令 有 关 的 指令 还 有 fliplr, rot90, flipdim 。 

注意 ， MATLAB 的 在 线 帮 助 总 是 用 大 写字 母 来 表示 指令 和 变量 名 的 (如 
上 面 的 例子 中 指令 是 用 FLIPUD 表示 ), 使 其 能 与 文字 内 容 区 分 开 来 。 然而 使 
用 指令 名 时 必须 使 用 小 写 ( 如 在 用 help 查找 指令 用 法 时 用 的 是 flipud )， 因 为 
MATLAB 是 区 分 大 小 写 的 ， 而 实际 使 用 的 是 小 写 . 

除了 上 述 帮助 系统 的 用 法 之 外 ,依次 点 击 菜单 Help\MATLAB help 将 会 打 
开 一 个 Help 窗口 ， 你 可 以 从 中 查找 自己 所 需要 的 内 容 ， 此 外 MATLAB 带 有 一 
份 较 完 整 的 PDF 格式 的 说 明 书 ， 在 matlab\help\pdf-doc 文件 夹 中 ， 用 鼠标 双击 
相应 的 文件 名 即 可 打开 。 
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在 指令 窗 中 还 有 一 些 常用 指令 : 


who 列 出 内 存 中 变量 名 type ”显示 指定 文件 的 内 容 
whos 列 出 内 存 中 变量 名 及 其 性 质 which 列 出 文件 所 在 的 目录 
clear 清除 内 存 dbtype 显示 文件 中 带 行 号 的 内 容 
dc ”清除 工作 窗 中 的 显示 内 容 disp ”显示 文字 或 变量 内 容 

df ”清除 图 形 窗 中 的 显示 内 容 edit ”编辑 指定 的 文件 

what 查看 指定 目录 下 的 文件 名 cd RAR ROL fF Bae 
exist 查找 变量 或 文件 dr ” 列 出 指定 目录 下 的 文件 


此 外 ,在 指令 窗 中 键入 !, 就 能 打开 一 个 DOS 窗口 ， 在 其 中 可 以 进行 DOS 环境 
下 的 各 种 操作 ， 如 直接 调用 外 部 程序 等 . 


1.2 矩阵 与 表达 式 
本 节 介绍 数据 、 变量 名 、 算 符 和 表达 式 的 写法 。 
1.2.1 数据 、 变 量 名 、 算 符 与 表达 式 


l. 数据 格式 

MATLAB 使 用 常规 的 十 进 制 表 示 法 ,小 数位 数 不 限 ， 可 以 用 加 号 和 减 号 表 
示 正 负数 。 10 的 竹 次 表示 为 e CxX E ) 加 上 正 负数 字 表 示 。 MATLAB 默认 的 虚 
数 单位 是 i 和 j, 数字 后 面 可 以 直接 加 上 i 或 j 表 示 虚 数 ， 中 间 不 要 有 空格 或 乘 
号 ; 但 表达 式 中 或 与 矩阵 连用 时 要 在 i 或 j 之 前 加 上 * 号. 以 下 都 是 合法 的 数值 
表示 法 : 


3 —99 0.00001 
9.639728  1.062010e—20 6.02252e23 
5+ 3i —3.141591 3e5i 
2. Ha 


MATLAB 使 用 人 们 所 熟悉 的 算 符 , 表 1.1 是 算术 运算 算 符 , 表 L2 是 关系 运 


表 1.1 算术 运算 算 符 


12 EA RIK 7 


表 12 关系 运算 算 符 


3. RZA 

用 算 符 把 数字 、 变 量 和 函数 组 合 在 一 起 ， 就 建立 了 一 个 表达 式 。 MATLAB 
的 数学 表达 式 可 以 对 整个 矩阵 进行 运算 .表达 式 中 运算 按 常规 的 优先 级 自 左 至 
右 执行 ,优先 级 的 顺序 是 指数 运算 最 优先 ， 其 次 是 乘除 ， 最 后 是 加 减 ， 可 以 用 
括号 改变 运算 顺序 。 


4 变量 

可 以 用 字母 ( 即 变 量 名 ) 来 代表 具体 的 数据 (如 矩阵), 这 称 之 为 对 一 个 变量 
赋值 . 使 用 变量 名 不 必 说 明 其 是 否 是 复数 ， 是 多 少 维 ,精度 是 多 少 ， MATLAB 
总 是 将 它们 默认 为 双 精 度 的 复数 . 

变量 名 用 字母 打头 ,后面 可 以 跟 字 母 、 数 字 、 下 划 线 ,数目 不 限 . 但 只 有 
变量 名 的 前 面 31 个 符号 有 效 . 要 查看 一 个 变量 的 内 容 ， 只 需 键入 其 名 称 . 

在 指令 徐 的 所 有 变量 都 会 保存 在 工作 内 存 空 间 ， 只 要 不 关闭 指令 窗 就 可 以 
调用 它们 . 用 指令 whos 可 以 查看 它们 的 名 称 . 清除 某 个 变量 用 指令 clear + 变 
EA, WRI AZE HHS clear all, 

在 MATLAB 6.0 HY RAER M PA LYE A Il A HA (Workspace) , 
变量 的 名 称 、 维 数 、 所 占 空 间 大 小 及 类 型 都 列 在 其 中 .点击 变量 的 名 称 ， 就 会 
再 打开 一 个 矩阵 编辑 器 窗口 (Array Editor) , 变量 的 元 素 以 表格 形式 排列 其 中 ， 
可 以 非常 方便 地 查看 和 修改 ， 也 可 以 用 它 来 输入 大 型 矩阵 . MATLAB 6.0 以 前 
版 本 没有 操作 桌面 窗口 ， 要 用 菜单 File\Show Workspace 来 打开 工作 空间 浏览 器 
窗口 (Workspace Browser) , 

在 MATLAB 中 某 些 变量 名 被 默认 为 代表 某 些 常用 的 常量 : 


pi 3.1415926 eps 2.2204e—016 
Lj ”虚数 单位 realmin ”最 小 浮 点 数 2.2251le_308 
Inf EFK realmax 最 大 浮 点 数 1.7977e+308 


NaN FR 
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无 穷 大 Inf 产生 于 不 为 零 的 数 被 零 除 ， 或 被 值 溢出 的 数学 表达 式 所 除 . E 
如 ,超过 最 大 实数 的 数 作 除数 。 非 数 NaN 产生 于 求 表达 式 (0/0) 或 ( Inf-Inf ) 
的 值 ， 它们 的 数值 没有 定义 . 这 些 函 数 名 并 不 是 MATLAB 保留 的 ， 它们 可 以 重 
新 定义 为 新 的 变量 ， 例 如 可 定义 

>> eps = 1.0e-6 
然后 将 其 用 于 以 后 的 运算 。 要 恢复 原来 的 内 部 函数 值 ， 可 以 键入 


>> clear eps 


5. 函数 

MATLAB FA ERUERA, WAIE, ORT AR. dX. = f Sd 
和 双 曲 函数 ( 见 附录 A5.1 2. 取 人 负数 的 平方 根 和 对 数 会 自动 地 得 出 相应 的 复 
Jk. MATLAB 也 提供 了 许多 更 高 级 的 函数 ， 如 贝 塞 尔 函 数 和 伽 马 函 数 C 见 附录 
A5.2 ), 大 多 数 这 些 函 数 都 能 接受 复数 。 要 看 基本 函数 列表 ， 只 需 键入 

>> help elfun 
要 列 出 特殊 函数 可 以 键入 

>> help specfun 

某 些 函数 , EL Un TT AR. 正弦 函数 , 是 内 建 的 , 是 MATLAB 的 内 核 的 一 部 分 ， 
所 以 非常 有 效 ， 但 计算 的 细节 则 不 容易 得 到 。 另 一 些 函 数 ， 如 双 曲 正弦 函数 、 
伽 马 函 数 ， 是 用 M 文件 ( 即 扩展 名 为 .m 的 文件 ) 来 建立 的 .你 可 以 查看 文件 
的 核心 内 容 其 至 修改 它 . 

用 这 些 基本 函数 可 以 建造 自己 专用 的 单 变 量 或 多 变量 函数 , 方法 有 三 种 : 
用 指令 inline, 用 符号 变量 和 用 M 文件 建造 函数 . 这 里 先 介 绍 用 指令 inline 建造 
函数 的 方法 (用 符号 变量 建造 函数 的 方法 见 1.2.3 5, 用 M 文件 建造 函数 的 方 
法 见 1.3.2 5), 

要 建立 一 个 带 参 数 09 的 zx 的 函数 


ff=cos r? +8 


并 想得到 当 z= 3, 0=2.1 时 函数 的 值 . 使 用 指令 inline 的 操作 如 下 : 
>> FF = inline( 'cos(x^2)^2 + theta’, 'x', ‘theta’ ) 
FF = 
Inline function: 
FF(x,theta) = cos(x^2)^24theta 
>> FF( 3, 2.1 ) 
ans = 


2.9302 
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如 果 变 量 x 是 矢量 , 则 要 将 函数 表达 式 中 的 算术 运算 算 符 改 成 对 数组 的 运 
HAF CIL 1.222 35 ), 也 可 以 用 指令 vectorize 来 完成 这 个 任务 , 指令 vectorize 的 
功能 是 将 公式 矢量 化 , 即 在 算 符 “ 和 ”、“*”、“/” 的 前 面 增加 一 个 贺 点 “.”. 
两 种 方法 举例 如 下 。 第 一 种 操作 是 用 指令 vectorize 将 已 有 的 函数 FF 矢量 化 ; 

>> vectorize(FF) 

ans = 

Inline function: 
ans(x,theta) = cos(x.^2).^24theta 

第 二 种 操作 是 在 输入 时 使 用 对 数组 运算 的 算 符 : 

>> FFF = inline( 'cos(x.^2).^2 + theta’, ‘x’, ‘theta’ ) 

FFF = 

Inline function: 
FFF(x,theta) = cos(x.^2).^2*theta 

现在 可 以 求 矢量 形式 的 变量 x 对 应 的 函数 值 . 

>> x =3: 0.1: 4; 

>> FFF( x, 2.1) 


2.9302 3.0661 2.5702 2.1111 2.3862 3.0032 2.9529 
2.2870 2.1889 2.8719 3.0171 
由 于 在 MATLAB 中 主要 使 用 矩阵 ,建议 表达 式 或 函数 都 采用 矢量 化 形式 . 
对 已 经 建立 的 函数 可 用 函数 名 查询 , 如 键入 FFF 就 可 以 查看 刚才 建立 的 函 
数 的 形式 和 它 的 变量 . 
要 建立 一 个 多 变量 函数 ， 必 须 将 各 个 变量 表示 成 一 个 矩阵 的 分 量 。 同样 ， 
多 变量 函数 也 可 以 带 参 数 . 下 面 建立 一 个 带 有 参数 c 的 三 个 变量 x,y,z 的 函数 。 


gg——a^ +y-24+64+¢ 


首先 将 z,y,z 看 成 是 的 三 个 分 量 . 4x, yz 是 矢量 时 ,可 以 用 1.2.2 555g 
冒号 算 符 表示 成 
v(:,1) = x, v(:,2) =y, v:,3) =z 
WW v 是 有 三 个 列 矢 量 的 矩阵 .现在 用 v 来 建立 函数 。 
>> gg = inline( '-v(:,1).^2 *v(:,2).^2 -v(:,3).72 +6 tc’, 'v', 'c' ) 
8g = 
Inline function: 
ff(v,c) = -v(:,1).72 + v(:,2).°2 - v(:,3).°2 + 6 * C 
FRR 4 x=[1,3,6], y=[2,2,7], z-[3,1,8] HH eee, 
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>> gg( [123;321;678],3) 


ans = 


-42 
这 个 结果 仍 是 一 个 列 矢 量 。 


1.2.2 ”矩阵 


MATLAB 的 优势 在 于 能 快捷 和 轻松 地 处 理 整个 矩阵 ,而 其 它 的 编程 语言 一 
只 能 处 理 一 个 数据 . 所 以 要 充分 发 挥 MATLAB 的 优点 , 就 应 该 尽量 使 用 矩阵 
算 


Ni SF 


TE MATLAB 中 把 数据 分 为 标量 (scalar), RÆ (vector), ÆRE (matrix) 和 列 
Ek (array) 。 列 阵 是 指 多 维 数组 ， 所 以 列 阵 包括 的 范围 最 广 . 在 列 阵 中 ， 一 维 数 
组 是 矢量 ,二 维 数组 就 是 矩阵 ,此 外 , 在 列 阵 中 还 有 三 维 或 四 维 数 组 等 ， 甚 至 可 
以 有 字符 串 构成 的 列 阵 . 对 于 不 同 的 数据 对 象 ，MATLAB 的 指令 往往 不 同 ， 即 
使 同一 个 指令 对 不 同 的 数据 对 象 也 可 能 有 不 同调 用 格式 . 


1. HEE 

定义 矩阵 可 以 直接 输入 和 窍 阵 的 各 个 元 素 或 用 MATLAB 的 指令 函数 生成 . 

在 输入 矩阵 的 各 个 元 素 时 ， 要 用 空格 或 逗号 分 割 同一 行 的 各 个 元 素 ， 用 分 
号 结束 一 行 元 素 ， 用 方 括号 括 起 整个 矩阵 .定义 矩阵 不 需要 说 明 维 数 ， 可 以 直 
接 使 用 复数 。 最 简单 的 是 列 矢 量 或 行 矢 量 ， 如 生成 有 16 个 元 素 的 行 矢 量 A 的 


做 法 是 在 指令 窗 输入 
>A=[16 3 2 13 5 10 11 8 9 6 7 12 4 15 14 1] 
A = 


16 3 2 13 5 10 11 8 9 6 7 12 4 15 14 1 
要 生成 4x4 的 矩阵 A 则 可 以 利用 分 号 : 
>A=[16 3 2 13;5 10 11 8; 9 6 7 12; 4 15 14 1] 
A= 

16 3 2 13 

5 10 11 8 

9 6 712 

4 15 14 1 
如 果 在 每 一 个 元 素 后 面 都 加 上 分 号 ， 就 会 生成 一 个 列 矢量 . 
生成 矩阵 的 指令 有 : 


Zeros 
eye 
magic 
cell 


linspace 
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单位 和 矩阵 

幻 方 阵 

28 E E 

等 间距 的 矢量 


试 举 数 例如 下 : 


>> Z = zeros ( 2, 4 ) 


Zu 
0.0 0 
0.0 0 


0 
0 


>> F = 5b*ones( 3, 3 ) 


5 5 
5 5 


5 5 5 


>> R = randn( 4, 4 ) 


-0.4326 
-1.6656 
0.1253 
0.287T 


»» a-[ 1, 3, 


>> diag(a) 


ans = 


>> diag( a, 


ans = 


O e o 


0 
>> diag( a, 


ans = 


-1.1465 
1.1909 


ones 全 部 元 素 为 1 的 矩阵 

rand 均匀 分 布 的 随机 数 矩 阵 
randn n 维 正 态 分 布 的 随机 数 矩 阵 
diag 对 角 和 矩阵 或 提取 对 角 元 
logspace ”对 数 等 分 的 行 拓 量 


0.3273 -0.5883 
0.1746 2.1832 


1.1892  -0.1867 -0.1364 


-0.0376 
5]; 


-1) 


o o 0o o 


1 


0.7258 0.1139 
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0 1 0 0 
0 0 3 0 
0 0 0 5 
0 0 0 0 

>> cell(4) 

ans - 
[ ] [ ] [ 1 [ ] 
[ ] [ 1 [ ] [ ] 
[ ] [ ] [ ] [ ] 
[ ] [ 1 [ ] [ ] 


2. IRAE 

标识 矩阵 元 素 是 指标 识 某 个 、 某 行 或 某 列 元 素 。 

(1) 行 标 与 列 标 

在 MATLAB 编程 中 ,矩阵 元 素 Ay 表示 为 Ad ji), 矢量 元 素 Be 表示 为 
B(k). 。 和 矩阵 元 素 也 可 以 用 一 个 指标 来 表示 ,， 这 时 是 把 整个 矩阵 看 成 一 个 列 矢 
量 ， 元 素 计 数 的 顺序 是 第 一 列 、 第 二 列 直到 最 后 一 列 。 如 对 于 前 面 4x4 的 矩阵 
A, EER A(4,2) 可 以 表示 为 A(8) . 注意 ,这 两 种 表示 法 如 果 使 用 不 当 , 会 造 
成 MATLAB 的 指令 操作 错误 . 

在 查找 矩阵 元 素 AQ, j) 时 , 如 果 i,j 超 出 了 和 矩阵 行 数 和 列 数 的 范围 , 则 显示 
出 错 信 息 . 但 是 在 存储 矩阵 元 素 A(G, j) EF, 如果 i，j 超 出 了 和 矩阵 行 数 和 列 数 的 
范围 ， 则 和 矩阵 会 自动 扩充 并 以 零 值 填补 没有 输入 的 元 素 。 如 在 前 面 的 矩阵 A 中 
增加 一 个 元 素 A(4, 5) ， 得 到 的 是 

>> A(4, 5) = 17 

A= 


(2) 冒号 算 符 
冒号 算 符 : 可 用 来 生成 矢量 ,矩阵 或 表示 和 矩阵 元 素 , 它 有 几 种 不 同 的 用 法 . 
从 1 到 10 步 长 (间距) 为 1 的 行 拓 量 的 表达 式 是 
>>M=1 :10 
Mz 
1 2 3 4 5 6 7 8 9 10 
如 果 步 长 不 是 1， 要 指明 步 长 ， 例 如 从 0 到 站 步 长 为 /A BS tT E 
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>>M=0: pi/4 : pi 
M = 
0 0.7854 1.5708 2.3562 3.1416 

"EUH Se BY d Pe aK SK oe FR ee A MERI — HEAT. 如 A(1:k,j 表示 和 矩阵 A 
的 第 j 列 的 前 面 k 个 元 素 . 冒号 : 还 可 以 代表 一 行 的 全 部 元 素 或 一 列 的 全 部 元 
K WAC, j) MAG, :) 分 别 是 矩阵 A 的 第 j 列 和 第 i 行 。 用 end 可 以 表示 最 后 
一 个 元 素 ， 如 A(end, j) 和 AG, end) 分 别 是 矩阵 A 的 第 j 列 和 第 i 行 的 最 后 一 个 
元 素 . 


3. 4 zk 4g FF 

矩阵 的 修改 包括 矩阵 的 合并 、 删 去 矩阵 中 指定 的 行 或 列 、 对 矩阵 中 的 特殊 
元 素 加 以 过 滤 . 

(1) 合并 

合并 是 用 一 些小 矩阵 来 建造 大 矩阵 。 其 实 前 面 建造 矩阵 就 是 将 单个 元 素 合 
JF. 方 括号 [ ] 就 是 合并 算 符 . 例如 用 前 面 建立 的 4x4 的 矩阵 A 可 以 造成 包 


A VI 4 T 4B EERS 8x8 的 矩阵 
>> B= [A A432; A+48 A416 ] 
B= 
16 3 2 13 48 35 34 45 
5 10 11 8 37 42 43 40 
9 6 7 12 41 38 39 44 
4 15 14 1 36 4T 46 33 


64 51 50 61 32 19 18 2 
53 58 59 56 21 26 27 24 
57 54 55 60 25 22 23 28 
52 63 62 49 20 31 30 17 
(2) 删 去 行 或 列 
在 方 括号 中 如 果 没 有 元 素 就 表示 空 拭 阵 ， 所 以 可 以 用 方 括号 从 矩阵 中 删 去 
一 行 或 一 列 。 BEM A EE A 的 第 二 列 ， 做 法 是 


>> AC: ,2)=0] 
A= 
16 2 13 
5 11 8 
9 7 12 
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如 果 想 从 矩阵 中 删 去 一 个 元 素 ， 则 其 不 成 为 一 个 矩阵 ， 所 以 如 下 的 表达 式 
是 错误 的 

> A( 1,22) - E[ ] 

用 一 个 指标 的 表达 式 删 去 一 个 元 素 或 一 个 元 素 序列 ， 剩 余 元 素 将 构成 一 个 


列 矢量 。 所 以 
>>A(2:2:10)=[] 
得 到 的 是 
A = 
16 9 2 7 13 12 1 


这 里 把 矩阵 看 成 列 和 撩 量 ,矢量 的 编号 是 从 第 一 列 ， 第 二 列 ， 直 到 最 后 一 列 。 所 
以 上 述 命令 表示 从 矩阵 表示 的 列 矢 量 中 删 去 第 2 ，4，6，8，10 号 元 素 . 
(3) 逻辑 下 标 
有 时 在 矩阵 中 存在 不 合乎 要 求 的 数据 , 希望 把 它们 过 滤 掉 ,但 并 不 知道 它 
们 的 确切 位 置 和 数量 。 这 时 可 以 利用 具有 逻辑 运算 功能 的 指令 来 完成 这 个 任 
务 . 例如 ， 已 知 数组 
>>x= [2.1 1.7 1.6 1.5 NaN 1.9 1.8 1.5 5.1 1.8 1.4 2.2] 
Columns 1 through 7 
2.1000 1.7000 1.6000 1.5000 NaN 1.9000 1.8000 
Columns 8 through 12 
1.5000 5.1000 1.8000 1.4000 2.2000 
其 中 的 NaN 表示 非 数 ， 是 一 个 委 失 的 数据 ， 为 了 去 掉 它 ， 可 以 使 用 fmite(X) 。 
它 对 所 有 有 限 数 ， 其 值 为 真 ， 对 NaN 和 Inf 为 假 . 
>> x = x( finite(x) ) 
Columns 1 through 7 
2.1000 1.7000 1.6000 1.5000 1.9000 1.8000 1.5000 
Columns 8 through 11 
5.1000 1.8000 1.4000 2.2000 
此 时 , 数组 中 还 有 一 个 数 5.1 与 其 它 的 数 偏离 过 大 , 它 是 一 个 无 效 数 . 可 以 用 以 
下 方法 来 去 掉 它 . 假定 要 去 掉 与 数组 的 平均 值 的 偏差 大 于 标准 差 两 倍 的 数 ,使 
用 的 指令 是 
>> x = x( abs( x - mean(x) ) <= 2 * std(x) ) 


Columns 1 through 7 
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2.1000 1.7000 1.6000 1.5000 1.9000 1.8000 1.5000 
Columns 8 through 10 
1.8000 1.4000 2.2000 


4. 4g ME ER YE 02 d8 A e JE 
(1) 三 类 指令 
MATLAB 的 算 符 和 指令 的 形式 都 与 作用 对 象 有 关 ， 以 指令 为 例 可 分 三 
类 .下面 以 对 矩阵 A 的 作用 为 例 加 以 说 明 . 
对 标量 作用 的 指令 叫 标量 函数 ， 作 用 对 和 象 是 矩阵 A 中 的 每 一 个 元 素 ， 如 
sin(A) ， 是 对 矩阵 A 的 每 一 个 元 素 求 正 弦 值 . 
对 矢量 作用 的 指令 叫 矢 量 函 数 ， 作 用 对 象 是 矩阵 A 中 的 每 一 列 元 素 ， 如 
max(A), JE Xt HEME A 中 每 列 元 素 求 极 大 值 . 
对 和 撼 阵 作 用 的 指令 叫 和 矩阵 函数 ， 作 用 对 象 是 矩阵 A 中 的 全 体 元 素 ， 如 
inv(A) ， 是 对 整个 矩阵 求 逆 . 
从 下 面 的 例子 可 以 看 出 这 些 指令 之 间 的 差别 . 例如 求 矩 阵 B 的 各 个 元 素 的 
正弦 值 的 操作 是 
>> B = [ pi/6, pi/4; pi/3, pi/2 ]; 
>> sin(B) 
0.5000 0.7071 
0.8660 1.0000 
又 如 求 矩 阵 G 的 本 征 矢量 和 和 对 应 的 本 征 值 V 及 各 列 的 平均 值 的 操作 是 
>>G= [1, 8, 4; 6, 8, 8; 3, 5, 8]; 
>> [ X, V ] = eig(G) 


X = 
0.8920 -0.4681 -0.5321 
-0.4505 -0.7173 -0.4583 
-0.0378 -0.5161 0.7119 
V= 
-3.2096 0 0 
0 17.6707 0 
0 0 2.5390 


>> mean(G) 
ans = 


3.3333 7.0000 6.6667 
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所 以 同一 个 命令 作用 在 不 同 的 对 象 上 可 以 有 不 同 的 结果 .如 求 和 指令 sum 
是 对 矩阵 的 每 一 列 元 素 求 和 ， 对 一 个 n xm 的 矩阵 作用 的 结果 是 产生 一 个 有 mm 
个 元 素 的 行 和 撩 量 , 而 它 对 一 个 有 m 个 元 素 的 行 矢量 或 列 矢 量 作 用 的 结果 是 得 到 
一 个 数 . 又 如 和 矩阵 求 道 指令 inv 只 能 对 二 维 的 矩阵 作用 ， 如 将 它 作用 在 三 维 的 
列 阵 上 ， 则 会 给 出 错误 的 信息 。 

(2) 两 种 算 符 

算 符 可 分 为 两 种 ,一 种 是 按 和 矩阵 运算 法 则 定义 的 运算 算 符 ， 叫 矩阵 运算 算 
fh; 男 一 种 是 按 和 矩阵 的 对 应 元 素 进行 运算 的 算 符 ， 叫 数组 运算 算 符 .两 种 运算 
的 算 符 列 在 表 1.4 中 。 

表 14 矩阵 运算 算 符 与 数组 运算 算 符 


例如 对 矩阵 A 和 了 B 分 别 进行 矩阵 运算 乘法 和 数组 运算 乘法 的 结果 是 
>> A= [ 15, 7, 5; 12, 3, 14; 7, 10, 11 ]; 
>> B= [ 6, 7, 3; 11, 14, 13; 4, 10, 9]; 
>> C = Ax*B 
C= 
187 253 181 
161 266 201 
196 299 250 
>> D = A.*B 
D= 
90 49 15 
132 42 182 
28 100 99 
可 以 看 到 ， 其 中 的 C 是 矩阵 运算 的 结果 。 按照 线性 代数 的 定义 ，C 的 第 一 
个 元 素 是 A 的 第 一 行 元 素 乘 以 B 的 第 一 列 元 素 所 得 结果 之 和 ; D 是 数组 运算 
的 结果 ,是 MATLAB 中 定义 的 运算 规则 ，D 的 第 一 个 元 素 是 A 的 第 一 个 元 素 
3€ VA B 的 第 一 个 元 素 所 得 的 结果 ,两 者 结果 大 相 径 庭 ， 
在 MATLAB 中 定义 的 抢 阵 运算 左 除 “\” 和 右 除 “/ ”的 含义 是 ,如果 Ar 
B=C, 则 B=A\C,A=C/B. 注意 , 矩阵 的 维 数 要 满足 矩阵 运算 的 条 件 . 
例如 利用 刚才 的 矩阵 A、B 和 CC 可 得 
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>> ANC 

6.0000 7.0000 3.0000 

11.0000 14.0000 13.0000 

4.0000 10.0000 9.0000 
>> C/ B 

15.0000 7.0000 5.0000 

12.0000 3.0000 14.0000 

7.0000 10.0000 11.0000 
所 得 结果 分 别 是 B 和 A . 

党 用 的 矩阵 运算 指令 有 : 
sum ” 求 矩 阵 各 列 元 素 之 和 det 求 矩 阵 行列 式 的 值 
prod REM & FI 7C 38 ZR eig 求 矩 阵 本 征 值 与 本 征 矢量 
max RMA RK ICR fliplr 使 矩阵 左右 翻转 
min ” 求 矩 阵 各 列 的 最 小 元 素 flipud 使 矩阵 上 下 翻转 
mean ” 求 矩 阵 各 列 的 平均 值 rot90 XR RE HT p FH 90° 
std 3K FEE PU BY th HEE median 求 矩 阵 各 列 的 中 位 元 素 
abs — 求 复数 的 模 cumsum ” 求 矩 阵 各 列 元 素 累 计 和 
angle ” 求 复数 的 辐 角 cumprod ” 求 矩 阵 各 列 元 素 累 计 积 
fft 快速 傅 里 叶 变 换 sort 按 递 增 排列 各 列 元 素 
ifft 快速 健 里 叶 道 变换 rank 求 矩 阵 的 秩 
trace SK &B AY oe cross 计算 矢量 又 积 


kron ”计算 张 量 积 


上 面 只 列举 了 一 部 分 指令 ， 附 录 A 中 有 更 多 的 指令 介绍 。 


MATLAB 对 绝 


大 多 数 和 矩阵 运算 都 有 专门 的 指令 ， 读 者 应 该 养 成 习惯 ， 在 进行 矩阵 运算 时 ， 先 


查 一 下 有 关 的 指令 用 法 。 


MATLAB 还 可 以 把 整个 矩阵 当 作 一 个 变量 进行 指数 、 对 数 等 运算 , 这 类 指 


令 有 : 
expm 


计算 矩阵 指数 
计算 矩阵 平方 根 


aqrtm 


logm 


funm 


计算 矩阵 对 数 
以 矩阵 为 变量 的 矩阵 函数 


从 下 面 的 例子 可 以 看 出 , WMF B = logm(A), NA A = expm(B). Mi b = log(A) 


是 对 A 的 每 一 个 元 素 求 对 数 ， 所 以 b ZB. 但 是 如 果 对 b 的 每 一 个 元 素 再 求 相 
应 的 指数 运算 exp(b), SFM Rte A. 
>> A = [5,7,8; 12, 9, 11; 3, 2, 11; 


18 


>> B = logm(A) 


ze 
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B = 
1.6932 + 2.01731 0.6564 - 1.02141 
1.3027 - 1.79131 1.7134 + 1.51423 
0.0629 - 0.38821 0.4560 - 0.3527i 

>> expm(B) 

ans = 

5.0000 - 0.0000i 7.0000 - 0.0000i 

12.0000 - 0.0000i 9.0000 - 0.0000i 

3.0000 + 0.00001 2.0000 + 0.0000i 
>> b = log(A) 

b = 
1.6094 1.9459 2.0794 
2.4849 2.1972 2.3979 
1.0986 0.6931 0 

>> exp(b) 

ans = 

5.0000 7.0000 8.0000 
12.0000 9.0000 11.0000 
3.0000 2.0000 1.0000 


1.2.3 ”符号 变量 


如 前 面 所 看 到 的 那样 ， 数 值 计 算 中 用 的 变量 都 是 已 经 赋值 的 . 没有 赋值 的 
变量 叫 符号 变量 . 在 MATLAB 中 对 符号 变量 的 定义 和 运算 都 有 专门 的 规定 。 因 
为 最 初 的 MATLAB 是 一 个 数值 计算 软件 ， 后 来 利用 数学 软件 MAPLE 的 符号 计 
算 功 能 开发 了 符号 计算 工具 箱 ( Symbolic Math Toolbox ) 和 扩展 的 符号 计算 工 
具 箱 ( Extended Symbolic Math Toolbox )， 以 便 在 MATLAB 的 环境 下 实现 符号 
1.6.1 节 符 号 运算 工具 箱 专门 介绍 这 些 内 容 . 这 里 提 及 符号 变量 只 是 用 来 


计算 . 
和 数值 运算 作对 比 , 


建立 一 个 符号 变 基 的 命令 是 


>>x = syn('x') 


而 建立 多 个 变量 的 命令 是 


>> syms 
它 等 效 于 


>> x = sym('x’) 


Xyza 
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0.5818 - 1.1292i 
1.8869 - 1.7991i 
0.6538 + 2.7517i 


8.0000 + 0.0000i 
11.0000 + 0.0000i 
1.0000 + 0.0000i 
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>> y = sym("y’) 

>> z = sym('z’) 

>> a= sym(‘a’) 

可 以 用 上 面 定 义 的 符号 变量 来 建立 符号 表达 式 并 进行 运算 , 这 也 就 是 前 面 
说 的 建立 函数 的 第 二 种 方法 . 如 下 面 的 操作 是 建立 一 个 函数 


g = sin(z)/x 


并 用 指令 limit 求 函数 在 z=0 的 极限 ， 以 及 用 指令 sup 求 z=0.5 的 函数 值 . 
>> g = Sin(X) / x 
g = 
sin(x)/x 
>> limit( g, O ) 
1 
»» subs( g, x, 0.5 ) 
0.9589 
如 果 不 定义 x 为 符号 变量 而 直接 输入 sin(z)/z, 就 会 显示 出 错 的 信息 。 显 然 
符号 运算 与 数值 运算 是 完全 不 同 的 概念 。 符号 变量 的 定义 可 以 灵活 应 用 ， 如 下 
面 的 例子 是 将 定义 直接 写 在 表达 式 中 或 将 整个 表达 式 定 义 为 符号 变量 . 对 于 前 
者 ,合并 同类 项 的 运算 可 以 自动 进行 ,， 而 对 于 后 者 ， 要 用 符号 运算 指令 collect 
才能 完成 。 对 两 种 方法 建立 的 两 个 表达 式 赋值 以 后 相 减 ， 其 结果 为 零 ， 可 见 它 
们 实际 上 是 一 样 的 . 


>> y = sym( 'x' ) + 2*sym( ‘x’ ) 


y = 

3 * x 
>> y = sym( 'x*2xx' ) 
y- 

x+2* x 


>> collect(y) 


ans = 

3 .* xX 
>> sin( 0:0.2:1 ) - subs( sin( sym( ‘x’ ) ), 0:0.2:1 ) 
ans = 
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在 实际 计算 中 , 两 者 各 有 不 同 的 用 途 . 符号 运算 可 以 用 于 公式 推导 和 证 明 . 
下 面 证 明 平 面 旋转 矩阵 是 一 个 正 交 和 矩阵 . 在 平面 上 将 坐标 旋转 角度 二 ， 可 以 用 
变换 矩阵 G 表示 ， 相 应 的 指令 是 
>> syms t; 
>> G = [cos(t) sin(t); -sin(t) cos(t)] 
G = 
[ cos(t),  sin(t)] 
[-sin(t), cos(t)] 
连续 两 次 变换 的 命令 是 
>>A=G*G 
A= 
[ cos(t)^2-sin(t)^2, 2*cos(t)*sin(t)] 
[ -2x*cos(t)*sin(t), cos(t)^2-sin(t)^2] 
再 将 它 化 简 
>> A = simple(A) 
A= 
[ cos(2*t), sin(2*t)] 
[-sin(2*t), cos(2*t)] 
这 就 是 连续 两 次 转动 的 变换 矩阵 公式 ,下面 再 来 证 明 变 换 和 矩阵 G 是 一 个 正 交 
和 矩阵， 证 明 的 方法 是 将 G 转 置 以 后 再 与 G 相 乘 会 得 到 单位 矩阵 : 


>>I =G.! *G 


I= 
[cos (£) ^2*sin(t)^2, 0] 
[ 0,  cos(t)^24sin(t)^2] 
再 化 简 得 
>> I = simple(I) 
I= 
[1, 0] 
[0, 1] 


TE MATLAB 中 有 一 个 图 形 界面 的 函数 计算 器 , 调用 的 指令 是 funtool. AE 
可 以 对 两 个 初等 函数 进行 加 、 减 、 乘 、 除 以 及 积分 、 微 分 、 求 反 函 数 等 运算 . E 
就 是 用 MAPLE 的 符号 运算 功能 开发 的 . 这 个 工具 非常 有 趣 地 显示 了 符号 计算 
与 数值 计算 的 差异 . 函数 计算 器 的 面板 上 有 一 个 demo 按钮 ， 显 示 如 何 从 reset 
键 开 始 (BJ x 开始 ) ， 经 过 九 次 点 击 面板 上 的 不 同 按 钮 : 构造 出 一 个 正弦 函 
数 sin(z) 。 函数 计算 融 的 设计 者 还 在 help 键 的 说 明 中 提出 挑战 ,如 果 有 人 能 
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用 更 少 的 次 数 点 击 面板 按钮 就 能 产生 一 个 正弦 函数 ， 请 给 他 发 封 电子 邮件 . 在 
MATLAB 5.3 以 后 的 版 本 新 增加 了 范 数 的 泰勒 展开 计算 器 ， 用 指令 taylortool 调 
用 ,这 对 计算 初等 函数 的 泰勒 展开 十 分 方便 . 

用 符号 变量 生成 带 参数 的 函数 也 很 方便 . 例如 要 生成 带 参数 0 的 z 的 函数 


FF = cog?’ (x°) +0 


并 求 出 在 z=3,0=2.1 时 的 函数 值 ， 然 后 求 出 函数 的 导数 函数 . 做 法 是 
>> GG = sym( 'cos( x72 )^2 + theta’ ) 
GG = 
cos(x^2)^2 + theta 
>> subs( GG, {'x’, ‘theta’}, (3, 2.1 
ans = 
2.9302 
>> diff( GG, ‘x’ ) 
ans = 


-4 * cos(x^2) * sin(x72) * x 


1.2.4 其 它 数据 结构 


下 面 介 绍 另 外 几 种 数据 结构 ， 如 列 阵 (array) 用 以 存储 多 维 数组 ; 数据 网 格 
(meshgrid) 用 以 存储 二 元 或 三 元 的 “数据 对 ”; FETCH RE (cell) 用 以 存储 大 小 不 
同 的 矩阵 甚至 是 空 矩 阵 ,结构 数 组 (struct) 可 同时 存 入 字符 串 和 数据 ; 最 后 介绍 
文本 ( 即 字符 文字 内 容 ) 的 输入 与 存储 。 如 果 想 要 了 解 更 多 的 数据 表现 形式 ， 
可 以 键入 help datatypes 进行 查看 . 


1. 列 阵 

列 阵 就 是 多 维 数组 . 在 使 用 MATLAB 编程 时 ， 一 个 矩阵 系列 Ar 就 是 一 个 
三 维 列 阵 。 第 上 个 矩阵 的 第 j) 个 元 素 表示 为 Ad j,k). MRR TR 
阵 都 构成 空间 的 一 个 层 ， 则 这 三 个 指标 分 别 表 示 元 素 所 在 的 行 、 列 和 层 . 类 似 
地 ， 四 维 列 阵 有 四 个 指标 ， 第 四 个 指标 不 妨 称 之 为 块 ， 块 都 是 一 个 三 维 列 
阵 。 第 五 维 不妨 称 之 为 堆 ， 每 一 堆 中 有 若干 块 …… 如 此 类 推 ， 很 容易 想象 多 维 
列 阵 在 空间 的 排列 顺序 . 

调用 列 阵 的 元 素 除 了 用 行 、 列 、 层 、 块 的 下 标 之 外 ， 还 可 以 用 冒号 算 符 ， 
方法 与 在 矩阵 中 使 用 的 相似 . 

为 了 叙述 方便 ， 在 此 先 约 定 几 个 术语 。 
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HE: 维 表示 列 阵 的 指标 数 ， 有 三 个 指标 叫 三 维 列 阵 ， 有 四 个 指标 叫 四 维 列 
EE. 每 一 个 指标 都 代表 一 个 特定 的 维 ， 有 了 时候 为 了 方便 ， 也 称 之 为 一 个 特定 的 
方向 ,用 dim 表示 ， 并 规定 dim 取 1，2，3，4,，… 分 别 表示 取 列 指标 、 行 指 
标 、 层 指标 、 块 指标 …… dims 则 表示 由 所 有 的 dim 组 成 的 矢量 . 

维 的 元 素数 : 每 一 个 指标 的 取 值 范围 就 是 它 所 代表 的 维 的 元 素数 。 例如 行 
的 元 素数 是 20 表明 它 有 20 行列 的 元 素数 是 5 表明 它 有 5 列 ， 层 的 元 素数 是 3 
表明 它 有 3 个 矩阵 ， 其 余 以 此 类 推 。 列 阵 的 总 的 元 素数 常 表 示 成 mxnxlx … 的 
形式 . 

理解 列 阵 元 素 的 指标 应 遵循 从 大 到 小 的 原则 ， 也 就 是 要 从 后 向 前 加 以 分 
tr. EA A(4, 7,5, 3) 为 例 ， 它 表明 A 是 四 维 列 阵 ， 调 用 的 是 其 中 第 3 块 中 的 第 5 
个 矩阵 中 的 第 7 列 第 4 行 的 元 素 , 而 A( :，:, 5,3) 则 是 调用 第 3 块 第 5 个 矩阵 
的 全 部 元 素 . 

由 此 可 见 ， 对 于 二 维 以 上 的 列 阵 ， 维 的 元 素数 取 工 是 无 意义 的 。 比 如 一 个 
三 维 列 阵 的 层 的 元 素数 为 1， 它 实 际 上 就 是 一 个 和 矩阵， 如 果 计 算 中 不 需要 这 个 
指标 就 可 以 把 它 取 消 . 取消 它们 的 指令 是 sdqueeze ， 它 会 自动 删除 列 阵 中 所 有 维 
的 元 素数 为 1 的 指标 。 shiftdim 是 移动 列 阵 的 各 个 指标 ， 移 动 后 它 会 自动 删除 
维 的 元 素数 为 1 的 指标 . 

生成 列 阵 的 方法 与 生成 矩阵 的 方法 相似 , 可 以 输入 列 阵 的 元 素 , 包括 整 行 、 
整 列 其 至 整个 矩阵 ;也 可 以 利用 MATLAB 指令 生成 ， 如 randn ， ones 和 zeros 
都 可 以 用 于 生成 列 阵 . 

指令 cat 可 以 用 和 矩阵 生成 列 阵 ， 语 名 格式 为 

cat ( dim, A1, A2, A3, … ) 

其 意义 是 沿 着 dim 指定 的 方向 将 AL, A2, A3, = 组 合成 一 个 列 阵 . 这 
里 的 dim 取 1，2，3,，… 时 分 别 表示 人 列 、 行 、 层 …… 指令 cat ATW BCE [ER 
i n FE BS — P ERE oP Sl EG ME A A BSE, TET. BRAE. 

>> A=[13; 57] 


A = 
1 3 
5 7 
>> B=[24;68 ] 
B = 
2 4 
6 8 


>> cat( 1，A，B ) 


ans = 


N oF 


6 


>> cat( 2, A, B ) 


ans = 


>> D = cat( 3, A, B) 


1 

5 
D(:,:,1) = 
D(:,:,2) = 


2 
6 


Oo A N O 


T 


6 


4 
8 
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如 果 通 过 复制 一 个 矩阵 来 生成 列 阵 ， 则 用 指令 repmat(A, [m, n, p= p. 


它 将 A 在 列 、 行 、 


子 分 别 将 A 在 列 、 行 、 
>> repmat( A, [ 2, 3, 3] ) 


ans(:,:,1) 
ans(:,:,2) 
ans(:,:,3) 


层 …… 的 方向 分 别 复 制 m， 


oF OF oF Oo e 


arf -~ 


层 的 方向 分 别 复 制 2 次 、 


N WN W [s WN W 


N WN CO 


o e OF a e 0 e 


o e.e. OF 


N WN W [s WN W 


N WON oO 


oF o e o e 0 e 


o e.e. OF 


n, p dX. 例如 ， 下 面 的 例 
3 次 和 3 次 . 


N WN W N WN W 


~ WN W 


24 € 1x MATLAB 简介 


对 已 有 的 列 阵 可 以 进行 以 下 的 变形 操作 : 将 所 有 的 元 素 重 排 reshape ， 将 列 
阵 的 维 数 重 排 permute 和 恢复 ipermute ,移动 列 阵 的 各 维 shiftdim ， 删 除 列 阵 的 
维 数 为 1 的 指标 squeeze 等 。 查 看 help 很 容易 学 会 它们 的 用 法 . 

对 列 阵 使 用 MATLAB 的 指令 仍然 要 注意 指令 的 作用 对 象 是 标量 、 矢 量 ,还 
是 矩阵 ， 不 可 混淆 。 如 sin 可 以 用 于 三 维 的 列 阵 ， 而 cig 则 只 能 用 于 矩阵 ， 不 能 
用 于 多 维 列 阵 ， 所 以 使 用 时 只 能 对 三 维 列 阵 中 各 层 的 矩阵 分 别 应 用 . 


2. 数据 网 格 

平面 上 一 个 点 的 坐标 要 用 一 对 数据 (a, y) 表示 ( 不 妨 称 之 为 二 元 “数据 对 ”)， 
要 把 平面 上 一 个 区 域内 所 有 的 点 都 表示 出 来 ,就 需要 两 个 矩阵 : HE REX 
阵 Y。 所 以 X,Y 就 是 平面 上 的 数据 网 格 。 在 这 两 个 矩阵 的 对 应 位 置 上 ， 每 取 
一 对 数据 都 可 以 表示 平面 上 的 一 个 点 。 类似 地 ， 空 间 的 点 要 用 三 元 “数据 对 ” 
(zx,y,z) 来 表示 ， 整 个 空间 的 点 要 用 三 个 三 维 列 阵 义 ,Y,2Z 才能 表示 , 所 以 X,Y,Z 
就 是 空间 的 数据 网 格 。 以 此 类 推 ，n 维 空间 的 点 要 用 n 个 n 维 列 阵 表 示 。 这 种 
数据 结构 既 不 是 矩阵 ， 也 不 是 多 维 数组 ， 我 们 以 后 称 它 为 数据 网 格 . 画 三 维 图 
形 或 求 出 某 个 区 域内 二 元 函数 的 值 要 用 二 维 的 数据 网 格 ， 而 求 空 间 区 域 中 三 元 
函数 的 值 则 要 用 到 三 维 的 数据 网 格 。 MATLAB 构造 数据 网 格 的 指令 是 meshgrid 


和 和 ngrid , 
(1) meshgrid ”生成 二 维 或 三 维 数据 网 格 
调用 的 语句 格式 为 


[X, Y] = meshgrid(x, y) 

[X, Y] = meshgrid(x) 

[X, Y, Z] = meshgrid(x, y, z) 

其 中 输入 量 x y, z 是 三 个 矢量 ,表示 数据 网 格 在 三 个 方向 上 的 取 值 分 布 . 
如 果 只 输入 一 个 矢量 ， 则 默认 其 余 的 矢量 也 取 同 样 的 值 。 

输出 量 区 , Y] 是 所 要 的 二 维 数据 网 格 ， 其 中 矩阵 X 的 每 一 行 都 是 矢量 x, 
JERE Y 的 每 一 列 都 是 矢量 y。 [X Y. Z] 是 输出 的 三 维 数据 网 格 . 

(2) ndgrid ”生成 n 维 数据 网 格 


调用 的 语句 格式 为 
[X1, X2, X3, …] = ndgrid(x1, x2, x3, … ) 
[X1, X2, X3, … | = ndgrid(x) 


各 项 符号 含义 基本 与 meshgrid 相同 .在 用 于 二 维和 三 维 网 格 时 ， 它 相当 于 
将 meshgrid 输入 和 输出 的 前 两 行 交 换 位 置 以 后 所 得 的 结果 ， 即 


>> [X, Y, Z] = meshgrid( x, y, z ) 


与 
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>> [X, Y, Z] = ndgrid( x, y, z ) 
的 结果 是 不 一 样 的 ， 而 
>> [X, Y, Z] = meshgrid( x, y, z ) 
与 
>> [Y, X, Z] = ndgrid( y, x, z ) 
的 结果 是 一 样 的 . 
下 面 是 由 矢量 x y 生成 的 二 维 数据 网 格 X Y 


>x=[135]; y-[2461]; 
>> [X Y] = meshgrid( x, y ) 
X = 
1 3 5 
1 3 5 
1 3 5 
Y = 
2 2 2 
4 4 4 
6 6 6 


由 X,Y 在 对 应 位 置 上 每 取 一 个 元 素 ， 就 表示 平面 上 一 个 点 的 坐标 ， 所 以 
X,Y 共 代 表 了 九 个 点 的 坐标 , 分 别 是 

(1, 2) (3, 2) (5, 2) 

(1, 4) (3, 4) (5, 4) 

(1, 6) (3, 6) (5, 6) 

下 面 的 例子 表明 由 矢量 x, y 生成 的 函数 z 仍 是 矢量 ,矢量 z 只 有 三 个 值 ， 
而 数据 网 格 X,Y ÆR RZ ZEEE, AREE ZZ 有 九 个 值 ， 这 九 个 值 与 平面 
上 的 九 个 点 相对 应 。 所 以 利用 数据 网 格 X, 了 才能 画 出 空间 的 曲面 。 


>> Zz = X.^2 + 2*y 


5 17 37 
>> Z = K.72 + 2*Y 


5 13 29 
9 17 33 
13  2À J 3j 
三 维 数据 网 格 的 数值 结构 与 二 维 数据 网 格 相似 ， 但 是 要 用 三 个 三 维 列 阵 表 
z. 下 面 这 个 例子 是 用 三 个 矢量 x, y, z 组 成 了 三 维 的 数据 网 格 X Y, Z. 
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>> 


>> 


XC: 


XC: 


XC: 


YC: 


YC: 


YC: 


ZC: 


ZC: 


ZC: 


1:62) 


:,1) 


:,1) 


47]; 


Z] 
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=[258]; 
yo zb 
meshgrid( x, y, 


-[3629]; 
Z = 
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9 9 9 

这 里 的 X, Y, Z 都 是 三 维 的 列 阵 ， 这 个 数据 网 格 表示 了 空间 的 27 个 点 的 坐 
标 ， 当 每 个 列 阵 的 第 三 个 指标 ( 层 指标 ) 都 取 1 时 ,表示 的 是 z= 3 的 各 个 点 的 
坐标 

(1,2,3) (4,2,3) (7,2,3) 

© 17.5573) ) (4,5, 3) (7, 5, 3) 

(1,8,3) (4,8,3) (7,8,3) 


3. 基 元 列 阵 
基 元 列 阵 (cell array) 可 以 将 不 同类 型 的 数据 按照 与 矩阵 形式 相似 的 结构 组 
织 起 来 加 以 应 用 . 
例如 下 面 就 建立 一 个 基 元 列 阵 
>> G{1,1}=3; 
>> G{1,2}=[1,2; 3,5]; 
>> GÍ2,1)-'good'; 
>> G(2,2)-'sin(x)^ 
>> G 
G = 
[3] [2x2 double] 
'good' 'sin(x)' 
其 中 有 一 个 元 素 是 和 矩阵， 所 以 只 给 出 了 它们 的 维 数 和 数据 精度 . 如 要 查看 它 的 
内 容 ， 可 以 将 它们 调 出 来 ， 方 法 与 调用 矩阵 元 素 的 方法 相同 。 如 调用 其 中 的 拖 
阵 元 素 ， 操 作 是 
>> G{1,2} 
1 2 
3 5 
基 元 列 阵 用 途 广泛 ， 读 者 可 以 参阅 本 书 的 参考 文献 。 


4. 结构 数组 

结构 数组 是 比 基 元 列 阵 更 复杂 的 数据 结构 ， 它 不 仅 可 以 将 不 同类 型 的 数据 
组 织 在 一 起 ， 还 可 以 为 它们 赋予 名 称 . 所 以 结构 数组 是 一 种 有 域名 的 数据 ， 它 
类 似 于 关系 数据 库 中 数据 的 结构 。 建立 结构 数组 的 语句 是 
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s = struct('fieldl', values1, 'field2', values2, …) 
其 中 fieldl , field2 是 域名 ， valuesl ， values2 是 相应 的 数据 。 数据 元 素 要 与 域 
名 相对 应 . 

例如 ， 下 面 的 指令 产生 一 个 结构 数组 s， 域 名 是 type ，color x, 输入 了 
两 组 数据 ， 可 用 s), s(2) 查看 . 域名 是 文本 型 的 字符 串 ， 用 引导 括 起 来 ; 数 
据 是 基 元 列 阵 ， 用 人 花 括 号 括 起 来 ,其 中 的 文本 型 的 字符 串 还 是 要 用 引号 ， 而 标 
tB HS. 

>> s = struct('type', {'big’, 'little'l, ‘color’, ['red'l, 'x', {3 4p 


1x2 struct array with fields: 


type 
color 
x 
>> s(1) 
ans = 
type: ‘big’ 
color: ‘red’ 
x: 8 
>> s(2) 
ans = 


type: ‘little’ 
color: ‘red’ 
x: 4 
对 结构 数组 操作 的 指令 还 有 fieldnames, getfield, rmfield, setfield 。 在 解 非 线 
性 方程 或 解 常 微分 方程 时 ， 为 了 说 明 解 方程 的 条 件 就 要 用 结构 数组 . 结构 数组 
也 是 一 种 用 途 广 泛 的 数据 结构 ， 读 者 可 以 参看 本 书 的 参考 文献 。 


5. 字符 和 文本 

输入 文本 的 方法 是 用 单 引号 ， 它 输 入 的 是 1xn 的 列 阵 .如 

>> s = ‘Hello’ 
是 一 个 1x5 的 列 阵 . 在 MATLAB 内 部 它 是 作为 数 来 保存 , 但 不 是 浮 点 数 。 如 下 
的 操作 是 将 字符 列 阵 转换 为 浮 点 数列 阵 ， 每 个 数 代 表 相 应 字符 的 ASCII 码 . 

>> a = double(s) 


72 101 108 108 111 
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而 反 向 操作 

>> s = char(a) 
把 数 再 变 成 字符 。 指令 char 是 显示 编码 表 中 的 字符 ， 当 编号 是 32 到 127 Hp, Sj 
示 的 是 ASCI 码 表 中 的 字符 . 

可 以 用 方 括号 把 字符 合并 为 一 个 大 的 字符 串 ， 如 水 平 合 并 和 亚 直 合并 的 操 
作 分 别 是 

>> h= [ s,' world’ ] 

h= 

Hello world 
>> v = [ s; ‘world’ ] 
Hello 


world 


1.3 ”编程 
本 节 介绍 MATLAB 的 编程 语言 、 程 序 文件 的 编辑 调试 、 数 据 的 输入 输出 。 
1.3.1 程序 文件 的 编辑 与 调试 


MATLAB 不 仅 是 一 个 交互 式 计算 工具 ， 也 是 一 种 效率 极 高 的 编程 语言 。 只 
有 掌握 了 编程 ， 才 能 真正 开始 下 面 的 学 习 。 学 习 编 程 的 必 经 之 路 是 多 多 阅读 好 
的 程序 , 如 MATLAB 的 许多 函数 和 程序 都 可 以 直接 调 出 来 阅读 ， 通 过 阅读 这 些 
程序 就 能 掌握 许多 文字 难以 说 清楚 的 巧妙 的 编程 技巧 。 

MATLAB 的 程序 文件 都 是 以 .m 为 扩展 名 , 所 以 称 为 M 文 件 . TE MATLAB 
中 带 有 一 个 编辑 器 可 以 编辑 M 文件 。 MATLAB 中 的 许多 指令 和 全 部 的 工具 箱 
文件 都 是 M 文件 . 在 M 文 件 中 ， 几 是 说 明 性 的 文字 都 用 % 开 头 。 


1. 编辑 M 文件 
现在 来 编辑 如 下 内 容 的 程序 文件 ， 并 命名 它 为 mag.m . 


^^ program mag.m 


A = [16.0 3.0 2.0 13.0 
5.0 10.0 11.0 8.0 
9.0 6.0 7.0 12.0 


4.0 15.0 14.0 1.0] 
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B=4' 

C=eig(A) 

编辑 过 程 如 下 : 

© IK XX Ei A MATLAB 指令 窗 的 菜单 File\New\Mfile ,打开 图 1.2 所 示 
的 程序 编辑 器 窗口 


SNC MATERBSN tes thdid m - 一 一 = 
File Edit View Text Debug Breakpoints Web Window m 


M dom a 
-| fig 
= s. 8 8-33) | 
= Pel 55 allo ol oS So lS- -0.87b"; WE EE 


|-| text(5.3,0.8,E 
=| text(5.3,0,'E= aar 
I=] text(5.3 -0.8,'E>2mg!"); 


= iiosd te ean 
= 1.5, 1, 0.5, 0.3, 0.1]; 


=| for a = 8 
if 
a Gu- acos(1-e(k)) — ^ — 


图 12 MATLAB 的 程序 编辑 器 窗口 


这 个 编辑 右 兼 有 编辑 与 调试 两 种 功能 . 在 窗口 中 可 以 输入 该 程序 的 内 容 并 
进行 编辑 ， 注 意 在 程序 文件 中 ， 各 指令 前 面 没 有 << 符号 。 

@ 程 序 编 好 以 后 ， 进 行 存盘 . 方法 是 依次 逐 层 点 击 菜单 File\Save As, 就 会 
打开 一 个 对 话 框 ， 选 择 存盘 的 目录 ， 并 在 文件 名 一 栏 中 输入 mag.m ， 然 后 选择 
保存 . 

在 指令 窗 键入 mag, MATLAB 就 会 运行 这 个 程序 . 程序 运行 的 结果 是 建 
立 了 矩阵 A， 同时 还 对 A 进行 了 转 置 和 求 本 征 值 的 运算 . 

编辑 一 个 已 有 的 M 文件 ， 可 以 利用 File 菜单 下 的 Open 子 菜单 ， 也 可 以 在 
指令 窗 直接 键入 

>> edit 文件 名 
MATLAB 可 以 同时 编辑 多 个 文件 , 所 有 打开 的 文件 名 都 以 标签 的 形式 显示 在 窗 
口 的 下 面 。 

M 文件 的 命名 规则 与 一 般 的 文件 命名 规则 相同 ,文件 名 要 以 字母 开头 , 不 
要 以 数字 开头 ， 最 好 也 不 要 用 MATLAB 默认 的 文件 名 untitled , 


2. 编辑 器 的 功能 
在 MATLAB 6.0 的 程序 编辑 器 窗口 中 的 操作 界面 相对 于 以 前 的 版 本 有 了 显 
著 的 变化 ， 它 增加 了 以 下 几 项 功能 
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Qf Hg AWA BATS. 

@ 程 序 中 的 汉字 注释 随时 都 能 正确 显示 。 而 在 以 前 的 版 本 中 ， 如 要 在 程序 
中 正确 显示 汉字 注释 ， 必 须 先 打开 编辑 器 窗口 ， 再 将 文字 输入 状态 从 英文 转换 
AEX, 最 后 打开 程序 文件 ， 这 样 汉 字 才 不 会 显示 乱码 . 

@ 增 加 了 一 个 菜单 命令 Text ， 其 中 包括 以 下 命令 


Comment 注释 选 定 的 行 
Uncomment 取消 注释 

Decrease Indent 减少 各 行 缩 进 的 程度 
Increase Indent 加 各 行 缩 进 的 程度 
Balance Delimiters 调整 分 界 符 

Smart Indent 将 选 定 的 各 行 对 齐 
Evaluate Selection 运行 选 定 的 内 容 


3. 程序 调试 
在 编辑 器 窗口 调试 程序 十 分 方便 ， 这 些 功能 主要 在 两 个 菜单 下 . 在 菜单 
Breakpoint 下 的 功能 有 


Set/Clear Breakpoint 设置 或 清除 中 断 点 

Clear All Breakpoint 清除 全 部 中 断 点 

Stop If Error 遇 到 错误 中 止 运行 

Stop If Warning 遇 到 警告 中 止 运行 

Stop If NaN Or Inf 遇 到 NaN 或 Inf 中 止 运 行 
在 Debug 菜单 下 的 功能 有 

Step 逐步 运行 

Step In 进入 干预 状态 

Step Out 退出 干预 状态 

Continue 连续 运行 直到 一 个 中 断 点 
Save and Run 保存 程序 并 运行 

Run 运行 程序 

Go Until Cursor 运行 到 光标 位 置 

Exit Debug Mode 退出 程序 调试 


其 中 Continue, Save and Run, Run 是 在 同一 个 位 置 ， 根 据 程 序 状态 自 
动 显 示 的 不 同 命令 . 如 果 程 序 编辑 后 尚未 保存 ， 则 显示 Save and Run ;如 果 是 
打开 一 个 已 有 的 程序 ， 则 显示 的 是 Run ;如 果 程 序 处 在 运行 状态 ， 则 显示 的 是 
Continue 。 当 程序 运行 到 某 一 行 时 ， 如 果 该 行 中 有 MATLAB 的 指令 ， 可 以 选择 
Step In 以 打开 与 指令 有 关 的 M 文件 , 查看 程序 在 其 中 的 运行 情况 . 退出 这 种 状 
态 可 以 选择 Step Out 。 
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上 述 这 些 指令 在 窗口 中 都 有 相应 的 图 标 可 以 使 用 . 在 窗口 左边 的 行 号 旁边 
有 一 个 坚 条 ,用 鼠标 双击 其 中 的 小 横 线 ， 也 能 设置 中 断 点 . 

调试 程序 的 含义 有 两 方面 ， 一 方面 是 改正 程序 中 的 语法 错误 ， 如 写 错 了 函 
数 名 ， 少 写 了 半 个 括号 等 ，MATLAB 能 够 自动 查 出 大 多 数 这 类 错误 ; 男 一 方面 
是 改正 程序 编写 错误 ,程序 编写 错误 会 造成 程序 不 能 运行 下 去 . 

要 调试 一 个 编 好 的 程序 ， 常 常 是 在 程序 中 设置 中 断 点 来 分 段 运 行程 序 ， 同 
时 也 可 设置 停止 运行 的 条 件 , 如 遇 到 错误 就 中 止 运行 等 . 设置 中 断 点 以 后 , 在 程 
序 的 相应 位 置 会 出 现 一 个 红 圆 点 。 然 后 开始 运行 程序 ， 当 程序 运行 到 中 断 点 的 
位 置 , 便 会 停止 下 来 , 等 待 输入 指令 , 同时 在 该 位 置 会 出 现 一 个 绿色 的 箭头 . 根 
据 需 要 可 用 不 同 的 指令 去 控制 程序 的 运行 ， 如 Step, Continue 等 . 绿色 的 箭头 随 
时 都 会 指示 程序 运行 所 到 的 位 置 。 当 程序 运行 出 错时 , 会 将 错误 信息 显示 在 指 
令 窗 中 ,根据 这 种 信息 可 以 修改 程序 .如 此 进行 , 直至 程序 能 完全 通过 为 止 . 

为 了 提高 程序 的 运行 速度 ， 必 须 做 到 避免 不 必要 的 和 重复 的 计算 , 采用 最 
节省 时 间 的 算法 。 MATLAB 提供 了 一 种 评价 程序 的 工具 Profile 。 它 可 以 记录 
程序 每 一 步 运行 的 时 间 ， 并 将 结果 用 图 形 或 报告 显示 ， 使 你 能 够 找到 问题 的 所 
在 ， 以 便于 改进 . 如 评价 程序 ch3.m ， 做 法 如 下 


DHEA HA profile on 启动 profile 

@ 键 入 程序 ch3 运行 程序 ch3 

四 键入 指令 profile report 生成 文字 评价 报告 
G HEA 48 © profile plot 生成 图 形 评价 报告 


程序 在 调试 好 以 后 ， 就 可 以 使 用 了 . 但 这 并 不 意味 着 这 个 程序 一 定 是 正确 
的 ， 也 就 是 编程 工作 到 此 还 不 能 算 结 束 。 因 为 目前 只 能 说 明 这 个 程序 符合 编程 
语法 的 要 求 ， 而 一 个 程序 的 正确 性 不 仅 与 算法 有 关 ， 更 重要 的 是 还 与 构造 算法 
的 物理 模型 、 物 理 思想 和 物理 概念 有 关 。 为 了 检验 程序 的 正确 与 否 ， 往 往 要 选 
用 以 下 方法 

@ 根 据 物理 模型 ， 对 可 能 得 到 的 结果 进行 一 些 定性 分 析 ， 用 以 预测 计算 结 
AR. 在 可 用 解析 方法 求 出 一 些 简 单 解 时 ， 可 把 解析 结果 与 程序 计算 的 结果 进行 
Xt HE. 

@ 改 变 程序 中 的 参数 重新 进行 计算 ， 分 析 比 较 所 得 的 结果 ， 看 它们 表现 出 
的 规律 性 是 否 能 互相 印证 . 

四 如 有 可 能 , 对 物理 模型 再 设计 一 个 不 同 的 算法 , 编辑 新 的 程序 进行 计算 ， 
以 检验 旧 程 序 。 


4. 设置 搜索 路 径 
自 编 的 程序 通常 是 存在 MATLAB 目录 下 的 work 文 件 夹 ,这 是 MATLAB 提 
供给 用 户 存储 文件 的 文件 夹 ， 只 要 启动 MATLAB 就 可 以 调用 其 中 的 程序 .如果 
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将 自己 的 目录 加 入 到 MATLAB 的 搜索 路 径 中 去 ， 那 么 程序 在 存 入 自己 的 目录 
中 以 后 也 能 正常 调用 。 加 入 的 方法 是 ， 双 击 File 菜单 下 的 Set Path 命令 ， 会 打 
开 一 个 路 径 设置 窗口 (Set Path) 如 图 1.3 Bros. 


| All changes take effect immediately. 


MATLAB search path: 


| Add Folder... | fig CAMATLABEMest 
| 


| Add with subfolders | 


Ea CAMATLABEitoolboxtmatlabang 
国 CAMATLABEitoolboxtmatiablelmat 


Move to Top 
国 CAMATLABEtoolboximatlabielfun 


Move Up EA CAMATLABE6itoolboximatiabispectun 

EE | Ea CAMATLABEtoolboximatlabimatfun 

? Ea CAMATLABEtoolboximatlabidatafun 
Move Down (£3 CAMATLABBitoolboxtmatlab\audio 

||Moveito Bottom EA CAMATLABBttoolboximatlabifunfun 


(im C AMATI ADGMeolbexeaaiabicnaerfun —— 
f 


| Save | Close | Revert | Default | 


图 1.3 MATLAB 的 路 径 设 置 窗口 


再 按照 窗口 中 各 个 按钮 上 的 指示 进行 操作 即 可 . 各 个 按钮 的 含义 为 


Add Folder 把 指定 的 目录 加 入 搜索 路 径 

Add with subfolders 把 指定 目录 及 其 子 目 录 加 入 搜索 路 径 
Move to Top 将 选 定 的 目录 移 到 最 上 面 

Move to Bottom 将 选 定 的 目录 移 到 最 下 面 

Move Up 将 选 定 的 目录 向 上 移动 

Move Down 选 定 的 目录 向 下 移动 

Remove 删除 选 定 的 目录 

Save 保存 新 加 入 的 目录 

Revert 取消 本 次 操作 

Default 恢复 机 器 原来 的 默认 设置 


如 果 是 MATLAB 6.0 以 前 的 版 本 ， 这 个 窗口 操作 界面 会 有 所 不 同 ， 但 功能 
相似 ， 
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1.3.2 ”指令 类 文件 和 函数 类 文件 


M 文件 分 指令 类 文件 (script files) 和 函数 类 文件 (function files) 。 指 令 类 文 
件 比 较 简单 ， 它 是 将 在 指令 窗 下 可 以 执行 的 一 些 函 数 和 指令 按照 执行 的 顺序 集 
中 写 在 一 个 文件 里 , 一 起 执行 , 效果 类 似 于 DOS 下 的 批 处 理 文件 . 它 没 有 输入 
参数 和 输出 参数 ， 可 以 使 用 指令 窗 中 的 变量 。 由 它 建立 的 变量 在 文件 执行 完成 
以 后 也 会 保留 在 指令 窗 的 工作 内 存 中 。 在 1.3.1 节 编 写 的 程序 magm 就 是 一 个 
指令 类 文件 ， 程 序 中 的 命令 都 可 以 在 指令 窗 中 执行 ， 编 成 程序 以 后 就 可 以 集中 
执行 ， 而 且 可 以 反复 使 用 . 


1. 函数 文件 的 结构 

函数 文件 的 编辑 比较 复杂 ， 用 途 也 更 多 . 如 后 面 为 解 微 分 方程 而 编写 的 
odefile 就 是 一 种 特殊 格式 的 函数 文件 .下面 重 点 介绍 函数 文件 . 

函数 文件 的 结构 可 分 以 下 几 部 分 . 

(1) 函数 定义 行 

这 是 函数 文件 的 第 一 行 ， 其 格式 为 

function [输出 变量 Q1, Q2, …] = 函数 文件 名 ( 输入 变量 P1, P2, …) 

这 里 的 函数 文件 名 就 是 存储 这 个 文件 时 所 使 用 的 名 称 ， 最 好 不 要 用 其 它 名 
PERE. 尤其 是 在 后 面 讲 到 的 子 函数 文件 中 ,如 果 使 用 其 它 名 称 ， 会 发 生子 
函数 不 能 调用 的 错误 . 如果 不 使 用 输入 和 输出 变量 ， 也 可 以 只 写 函 数 文件 名 ， 
但 开头 的 关键 字 function RAHA, P1, P2, Ql, Q2, — 必须 是 函数 文 
件 中 使 用 的 变量 名 . 

(2) H1 行 

帮助 文本 的 第 一 行 . 简单 说 明 函 数 的 基本 功能 ， 是 指令 lookfor 查找 的 范围 ， 

(3) 函数 帮助 文本 

帮助 文本 的 全 文 . 详细 介绍 函数 的 功能 和 用 法 ， 是 指令 help 查找 的 内 容 . 

(4) 函数 体 

函数 文件 中 的 程序 .包括 流程 控制 、 交 互 输入 和 输出、 计算 、 赋 值 、 注 释 ， 
也 可 以 调用 函数 文件 和 指令 类 文件 . 

(5) 注释 

为 了 帮助 理解 程序 ， 可 以 在 程序 的 任何 位 置 加 入 注释 文字 ,但 必须 用 % 开 
头 .在 同一 行内 ,所 有 在 % 后 面 的 内 容 都 不 会 执行 . 


2. 函数 文件 的 调用 
函数 文件 的 调用 格式 为 
[输出 变量 Q1, Q2, …] = 函数 文件 名 ( 输入 变量 PT, P2, … ) 
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参数 要 保持 与 函数 文件 相同 的 顺序 ， 同 时 不 能 多 于 函数 文件 中 的 参数 数 
目 。 函 数 文件 中 的 变量 默认 为 局 部 变量 ， 只 能 在 本 函数 文件 中 使 用 。 只 有 将 它 
设置 成 全 局 变量 以 后 才能 被 其 它 函 数 文件 使 用 或 在 指令 窗 使 用 . 与 函数 文件 交 
换 数据 一 般 是 通过 输入 参数 和 输出 参数 . 所 以 调用 函数 文件 实际 上 就 是 通过 输 
入 参数 给 函数 文件 中 变量 P1, P2, … 赋值， 通过 函数 运算 以 后 ,返回 变量 QI, 
Q2, … 的 值 . 由 此 可 见 ， 函数 文件 可 以 完成 指令 类 文件 的 功能 , 但 指令 类 文件 
却 不 具有 函数 文件 的 功能 ， 

函数 文件 可 以 调用 自己 , 称 为 递归 调用 . 这 样 调 用 必须 确保 调用 过 程 能 够 
"ub, 否则 , 会 陷入 死 循环 。1.4.7 节 中 的 例 3 即 小 球 弹跳 的 例子 就 是 采用 了 递 
归 调 用 . 

用 函数 文件 建立 函数 是 建立 函数 的 第 三 种 方法 。 下面 是 两 个 不 同 的 函数 文 
ft, 文件 名 分 别 为 testl.m 和 test2.m ,它们 建立 了 两 个 不 同 的 函数 ,在 1.2 节 曾 
用 指令 inline 来 建立 这 两 个 函数 . 文件 中 采用 数组 算 符 . 


^4 programi testi.m 


function FFF = testi(x,theta); 
FFF = cos(x.^2).^2 + theta; 


%YProgram2 — test2.m 
function ff - test2(v,c) 
x =v(:,1); y=v:,2); 2 = vG,3); 
ff =-x.°2 + y.^2-z.2*6 *c 
将 它们 分 别 存盘 以 后 , 可 按照 test1(x,theta) 和 test2(v.c) 格式 调用 它们 . 比如 说 ， 
要 计算 
z = 1, y = 0.3, z = —2, c = —4 


时 和 
X=[1, 3, 6], Y=[2, 2, 7], Z=[3, 1, 8, c=3 


时 ff AMA, 可 键入 
>> test2( [1, 0.3, -2], -4 ) 
ans = 
-2.9100 
>> test2( [1, 2, 3; 3, 2, 1; 6, 7, 8], 3) 
ff 
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3. 子 函 数 文 件 

在 同一 个 函数 文件 中 可 以 建立 多 个 函数 ， 第 一 个 函数 叫 主 函数 ， 其 余 的 叫 
子 函 数 . 子 函 数 只 能 被 同一 个 文件 中 的 主 函 数 和 其 它 子 函数 调用 . 这 个 功能 很 
像 C 语言 编程 中 的 主 程序 与 子 程序 的 关系 ， 这 在 编程 中 会 带 来 很 多 的 方便 . E 
函数 名 就 是 函数 文件 名 . 应 用 子 函 数 的 实例 可 参见 1.4.7 节 的 例 3 . 


4. 全 局 变量 

如 果 几 个 函数 文件 要 共用 一 个 变量 ,那么 要 在 这 些 函 数 文件 中 都 定义 这 
个 变量 是 全 局 变量 。 如 果 在 指令 窗 中 也 要 使 用 这 个 变量 ， 就 还 要 在 指令 窗 中 定 
义 这 个 变量 为 全 局 变量 。 必 须 在 使 用 函数 之 前 定义 全 局 变量 . 例如 ， 建 立 文 件 


falling.m 


“program falling.m 

function h = falling(t) 

global GRAVITY 

h = 1/2*xGRAVITY*t.^2; 

然后 再 在 指令 窗 中 依次 键入 

>> global GRAVITY 

>> GRAVITY = 10; 

>> y = falling((0:.1:5)2; 

这 两 个 关于 全 局 变量 的 表述 使 得 在 指令 窗 输 入 的 GRAVITY 的 值 能 在 函数 
内 部 使 用 。 在 指令 窗 输入 不 同 的 GRAVITY 的 值 ， 比 如 键入 

>>GRAVITY = 9.8 
就 能 得 出 新 解 而 不 必 去 改变 程序 中 GRAVITY 的 值 . 


1.3.3 流程 控制 


在 M 文件 中 ,不 但 可 以 按 顺 序 执行 指令 ， 也 可 以 使 用 循环 结构 和 选择 结 
构 来 控制 流程 ， 还 可 以 在 程序 的 运行 中 ， 接 受 键盘 输入 的 指令 . 这 种 M 文件 与 
FORTRAN 和 C 语言 中 常 说 的 程序 已 经 很 相似 了 . 下 面 介绍 控制 流程 的 语句 。 


1. 循环 结构 
MATLAB 中 有 两 种 循环 方式 . 一 种 是 for 循环 ， 用 于 可 以 确定 循环 次 数 的 
循环 ， 另 一 种 是 while 循环 ， 用 于 不 能 确定 循环 次 数 的 循环 . 
(1) for 循环 的 语句 格式 是 
for ”循环 变量 = 起 始 值 : 步 长 : 终止 值 
循环 体 
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end 
步 长 的 默认 值 是 1 可 以 是 任意 的 正 实数 或 负 实数 . 当 步 长 为 正 数 时 ， 表 示 
循环 变量 大 于 终止 值 时 循环 停止 ; 当 其 为 负数 时 ， 表 示 循 环 变量 小 于 终止 值 时 
循环 停止 。 for PMT UREA. for 循环 的 应 用 参看 本 节 例 1L. 
(2) while 循环 的 语句 格式 是 
while 表达 式 
循环 体 
end 
当 表 达 式 为 真 时 ， 执 行 循环 体 ， 执 行 后 再 判断 表达 式 是 否 为 真 ， 是 真 则 执 
行 循环 体 ， 否 则 退出 循环 体 . 例如 要 找 出 小 于 10” 的 最 大 阶乘 ， 用 的 程序 是 
n=1 
while prod(1:n)«1e10 
n=n+1 
end 
得 到 的 结果 是 14 即 14 ! 是 小 于 10” 的 最 大 阶乘 . 
在 其 它 语 言 中 要 使 用 for 或 do 循环 的 地 方 ， MATLAB 可 以 用 矢量 或 矩阵 
操作 。 如 建立 一 个 对 数 表 ， 在 其 它 的 语言 中 的 程序 是 
x=0; 
for k = 1:1001 
y(k) = log10(x) 
xx 01; 
end 
在 MATLAB 中 的 程序 应 该 是 
x = 0:.01:10; 
y = logi0(x) 
这 称 之 为 天 量化 编程 . TE MATLAB 中 ， 只 有 确实 不 能 矢量 化 的 程序 才 有 必要 使 
用 for 循环 ,否则 会 大 大 减 慢 程序 运行 的 速度 . 很 多 初学 者 往往 觉得 ，MATLAB 
昌 然 方便 ， 但 计算 速度 似乎 不 快 ， 其 实 就 是 因为 在 程序 中 不 正确 地 运用 了 for 
循环 之 类 的 语句 。 矢 量化 编程 优化 了 其 它 语言 中 的 for 语句 ， 所 以 运算 速度 更 
th. 在 指令 窗 键入 xplang, 可 以 调 出 一 个 演示 程序 ， 其 中 有 一 句 话 很 有 代表 性 ， 
“ Life is too short to spend writing DO loops …” 
这 是 MATLAB 编程 者 之 间 常 说 的 一 句 话 “宝贵 而 短暂 的 生命 可 不 能 浪费 在 做 DO 
循环 上 ……”， 它 充分 表达 了 编程 者 对 MATLAB 运算 速度 的 自信 心 和 自豪 感 . 
如 果 一 段 程序 不 能 矢量 化 ， 可 以 预先 对 一 个 矢量 或 矩阵 设 定 初 值 ， 那 样 可 
以 加 快 for 循环 . 下 面 的 例子 是 用 函数 zeros 对 for 循环 建立 的 矢量 设 定 初 值 . 
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它 明显 地 加 快 了 for 循环 的 速度 . 
r = zeros(32,1); 
for n = 1:32 
r(n) = rank(magic(n)) 
end 
如 果 不 设 定 初 值 ，MATLAB FY 4a PEARS A E r BY TTR EH T XH. 
增加 一 个 元 素 . WIKRE MRI TANER, Mite TAT RE. 


2. 分 支 结构 

MATLAB 中 的 分 支 结 构 有 站 结构 和 switch 结构 . 前 者 用 逻辑 表达 式 作 判别 
式 ,， 后 者 用 字符 串 或 数值 作 判 别 式 ， 

(1) 站 结构 的 语句 格式 为 

if 逻辑 表达 式 1 


语句 体 1 
elseif 逻辑 表达 式 2 
语句 体 2 
else 
语句 体 3 
end 


上 述 结构 可 以 简化 为 fend BY ifelse-end 结构 .在 语句 执行 时 ， 如 果 逻 辑 表 
达 式 1 为 真 ， 则 执行 语句 1， 如 有 果 为 假 ， 则 判断 逻辑 表达 式 2 是 否 为 真 ， MRA 
真 ， 则 执行 语句 2， 否则 向 下 执行 。 站 分 支 结 构 也 可 以 符 套 使 用 . 

(2) switch 结构 的 语句 格式 为 

switch 表达 式 (标量 或 字符 串 ) 


otherwise 
语句 3 
end 
这 种 结构 是 在 几 种 情形 下 选择 其 中 的 一 种 来 执行 。 如果 表达 式 与 值 1 相 
符 ， 则 执行 语句 1; 如 果 表 达 式 与 值 2 相符 ， 则 执行 语句 2; 以 此 类 推 ， 如 果 都 
不 相符 就 执行 语句 3 。 然 后 才 会 执行 end 以 后 的 程序 . 在 switch 结构 中 也 可 以 
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不 包括 otherwise 语句 。 在 前 面 多 次 引用 过 的 14.7 节 例 3 的 函数 文件 ballode, 就 
运用 了 switch 结构 来 判断 参量 Hag 的 值 . 


3. 其 它 指 令 

break ”用 于 for, while, if AA Fuk, 如果 循 环 是 艇 套 的 ， 则 只 从 最 内 的 
一 层 退 出 . 

pause ”使 程序 运行 暂停 , 按 任意 键 恢 复 运 行 ， 而 pause(n) 则 是 暂停 n 秒 . 

disp('… ') ”在 屏幕 上 显示 引号 中 的 内 容 . 

input ”将 用 户 从 键盘 输入 的 数值 、 字 符 串 或 表达 式 赋予 指定 的 变量 . 例 
如 键入 

>> a=input ( ‘Please input a number:’ ) 
运行 以 后 ， 在 屏幕 上 将 会 显示 引号 内 的 文字 ， 然 后 可 从 键盘 输入 数字 、 表 达 式 
或 带 单 引 号 的 字符 串 , 回 车 以 后 它们 被 赋予 变量 a. 如 要 输入 字符 串 , 则 格式 为 

>> a-input( ‘Please input a string:’ , 's’ ) 
运行 以 后 ， 在 屏幕 上 也 会 显示 引号 内 的 文字 ， 然 后 也 可 从 键盘 输入 带 单 引导 的 
数字 、 表达 式 或 带 单 引 号 的 字符 串 , 回 车 以 后 它们 是 作为 字符 串 被 赋予 变量 a 

keyboard “暂时 中 止 程序 的 运行 ， 等 待 键盘 输 入 的 指令 ， 在 执行 完 输入 的 
指令 以 后 ， 只 要 键入 return, 又 可 以 恢复 程序 的 运行 . 常用 于 调试 程序 或 在 程序 
运行 中 修改 变量 的 值 . 

下 面 的 程序 中 都 用 了 for 语句 控制 流程 . 程序 中 的 plot(x,y) 是 用 函数 值 y 对 
变量 x 画 二 维 曲线 ， 而 subplot 是 画 分 区 图 的 指令 . 

例 1 著名 的 生态 学 模型 一 - Logistic 模型 是 一 个 一 维 非 线性 迭代 方程 : 


Tnt1 = (zs 一 zh) 


将 参数 4 限制 在 (0, 4), 2 就 在 (0, 1) 变化 . HAP C u EM 2.6 逐渐 增 大 , 对 
2 进行 欠 代 ,在 达到 一 定 的 迭代 次 数 后 ， 系 统 的 稳定 状态 会 从 一 个 变 成 两 个 ， 
又 从 两 个 变 成 四 个 ，…… 最 终 呈现 混沌 现象 

在 编程 计算 时 , 通过 试验 , 发 现在 兴 代 150 次 后 ,系统 可 达到 稳定 . 因此 在 
程序 中 采用 了 两 个 循环 ， 第 一 个 循环 欠 代 150 K, 但 不 画图 ; 第 二 个 循环 用 第 
一 个 循环 的 最 终结 果 作 初 始 值 进 行 计算 ， 并 且 画 图 . 第 二 个 循环 的 迭代 次 数 是 
通过 试验 决定 的 . 对 不 同 的 4 信 不 再 采用 for 循环 ， 而 是 采用 矢量 表示 ， 以 加 快 
计算 速度 . 实际 程序 bug.m 如 下 (图 1.4 是 程序 运行 时 所 画 出 的 周期 分 岔 图 ): 


%YspProgram bug.m 


x=0.6; whe 的 初始 值 
u=2.6:0.001:4; hho 3C B HE 8, Bl 


A 
e 


for j=1:150 %y 此 循环 让 系统 达到 稳 
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x-zu.*(x-x.^2); LAIT x 进行 迭代 
end 
for i=1:100 %X 此 循环 输出 分 贫 图 


x=u.*(x-x.72); 


plot(u,x,'r.','marker','.','markersize',1) 
hold on; 


end 


i 4 
2.6 2.8 3.0 3.2 3.4 3.6 3.8 4.0 


图 1.4 Logistic RH 8] 30143 A E 


例 2 雪花 的 分 形 图 . 将 等 边 三 角形 的 一 条 边 三 等 分 ， 将 中 间 的 一 段 去 
掉 ， 代 之 以 一 个 更 小 的 等 边 三 角形 的 两 条 边 , 依次 做 下 去 , 将 得 到 图 1.5 所 示 的 
FER. 

在 程序 snow.m 中 用 复数 的 实 部 和 虚 部 分 别 表 示 点 的 坐标 xz,y . plot 是 作 
图 指令 ， 它 对 复数 作 图 相当 于 用 复数 的 实 部 和 虚 部 分 别 表示 曲线 的 z,y 55 n. 
因此 只 要 计算 出 各 点 的 坐标 ， 依 次 连接 起 来 ,就 是 所 要 的 结 

程序 中 的 第 一 句 是 列 出 第 一 个 分 区 图 中 a,b,c,d 共 4 个 点 的 坐标 , 其 中 aud 
两 个 点 是 重合 的 ， 然 后 画 出 一 个 等 边 三 角形 . 接 下 来 对 有 的 循环 画 出 了 后 面 的 
5 个 分 区 图 。 而 对 jj 的 循环 ， 是 对 每 条 边 计算 新 图 形 中 4 个 点 的 坐标 。 以 第 二 
个 分 区 图 为 例 ，;j; 共有 3 次 循环 , 分 别 计算 了 (a,b,c,d), (e, f. g. h), 0540 点 的 
AE. dU m 的 坐标 则 等 于 a 点 的 坐标 .程序 snow.m 如 下 : 

%YProgram snow.m 

new=[0.5+(sqrt (3)/2*i),-0.5+(sqrt(3)/2*i),0,0.5+(sqrt (3)/2*i)]; 

和 给 出 分 区 图 1( 图 1.5(a)) 中 a,b,c,d 点 的 坐标 
subplot(2,3,1); plot(new), axis equal ALE 出 分 


x 


图 1i 


1.3 fg E 


for k-1:5; 44H DK A 2-608 1.5(b)~(f)) 
old=new; 和 保存 原 有 各 点 的 坐标 


n=length(old)-1; 
for jj=0:n-1; 


%% 计 算 点 的 数目 
hh 对 每 条 边 计算 4 个 新 的 点 的 坐标 


diff=(0ld(jj+2)-old(jj+1))/3; 
new(4*jj+1)=old(jj+1); 
new (4*jj+2)=old(jj+1)+diff; 


new (4*j j+3)=new(4*jj+2)+diff*((1-sqrt (3)*i)/2); 
new (4*j j+4)=old(jj+1)+2«diff ; 


end 
new (4*n+1)=old(n+1) ; 
subplot (2,3,k+1); 
plot (new) 
axis equal; 44E 


end 


Tee eee 


Y 
x 
al 


uw 
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图 1.5 雪花 形状 的 分 形 图 


A 


坐标 相同 


Al 


913 WEDER. 将 一 条 线段 三 等 分 ,在 等 分 点 上 各 画 一 条 长 度 为 原 线 
段 长 度 的 三 分 之 一 的 线段 ， 该 线段 与 原 线段 成 固定 的 夹 角 . 依次 做 下 去 ， 就 会 


得 到 图 1.6 所 示 的 树 形 图 。 
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MATLAB 
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图 1.6 树 形 分 形 图 


0 0.5 


实际 的 程序 tree.m 如 下 (程序 中 的 注解 只 是 对 分 区 图 1, 2 ( 图 1.6(a)(b)) 的 
解释 ， 对 于 以 后 的 图 形 可 以 类 推 ): 


^4 program tree.m 
theta=pi/6; 

u =[0,0;0,1]; 

subplot (2,3,1) 
plot(u(:,1),u(:,2)) 

axis([-0.5,0.5,0;1]) 
for n-1:5 


uuu-[ ]; 


WE OK 


%% 设 置 夹 角 


x 


AAE 分 


和 建立 一 个 空 的 矢量 ， 
for I=0: (length(u) /2—1) 


图 1 ( 


循环 画 出 一 个 分 


区 图 


存放 点 的 4 


pl=(u(2*I+1,:)*2+u(2*I+2,:))/3 ; 


p2=(u(2*I+1,:)+u(2*I+2,:)*2)/3; 


1.6(a)) 中 的 直线 


AS BE 


%% 对 每 一 条 线段 计算 新 的 点 的 位 置 


lp=[cos(theta),—sin(theta);sin(theta) ,cos(theta)]*... 
[(u(2*I+2,1)—u(2*I+1,1));u(2*I+2,2)—u(2*I+1,2)]/3 ; 


lp-pi*lp'; 


hh d 点 的 位 置 4 


E 


rp=[cos(theta) ,sin(theta) ;—sin(theta) ,cos(theta)]*... 
[Cu (2«142,1) —u(2*141,1)) ;u(2*142,2) —u(2*1+1,2)1/3; 

Wh e 点 的 位 置 坐标 

uu-[u(2*1*1,:) ;p1;pi;lp;pi;p2;p2;rp;p2;u(2*142,:)]; 


rp-p2*rp'; 
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%% 按 照 (0,a, a, d, a,b, b, e, b, c) 顺序 排列 数据 ， 以 供 作 图 用 


uuu=[uuu;uu] ; 和 将 新 的 点 的 坐标 存 入 矢量 中 
end 
u- [uuu] ; 
subplot(2,3,n*1) A ZR 


plot(u(:,1),u(:,2)) 
axis([—0.5,0.5,0,1]) 


end 
1.3.4 数据 输入 与 输出 
MATLAB 与 外 部 环境 交换 数据 ， 常 用 save 和 1load 这 两 个 指令 ， 其 用 法 为 


l. save ”将 内 存 中 的 变量 存 入 文件 
其 语句 格式 有 以 下 几 种 : 
save fname 将 工作 内 存 中 的 变量 存 入 二 进 制 文件 旬 ename.mat 1, 


save fname X Y Z 存储 变量 X，Y，7Z. 可 以 用 通配符 * 。 
save fname X Y Z -ascii 文件 为 8 位 的 ASCII 文件. 

save fname X Y Z -ascii -double 文件 为 16 位 的 ASCII 文 件 . 
save fname X Y Z -ascii -double -tabs 列表 式 的 文件 . 

save fname X Y Z -append ray 2E Tg A 2 Ba B] oc ffe nn, 


2. load “将 文件 数据 读 入 内 存 


其 语句 格式 有 以 下 几 种 : 

load filename 从 文件 filename.mat 中 读 入 数据 .必须 指明 有 关 的 路 径 . 

load filename x, y,z,-- 只 读 入 指定 的 变量 x,y,z,… 变量 名 也 可 以 
用 通配符 . 


load filename.ext ” 读 入 ASCII 码 的 分 行 形式 的 数据 ， SCHR PAD EL 
以 % 开 头 的 MATLAB 的 命令 ， 变量 名 与 文件 同名 . 

load filename -ascii(or -mat) 按 ASCII 码 或 二 进 制 读 入 文件 数据 ， 

指令 load 也 可 读 入 包含 数值 数据 的 文本 文件 . 文本 文件 应 该 列 成 数据 的 
表 ， 同 行 中 的 各 列 用 空格 分 开 ， 每 行 中 有 相等 的 元 素 . 例如 用 任何 编辑 器 编制 


如 下 数据 表 
16.0 3.0 2.0 13.0 
5.0 10.0 11.0 8.0 


9.0 6.0 7.0 12.0 
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FOE FEA d SERI mag.dat 文件 .要 将 它 读 入 工作 空间 ， 可 键入 命令 
>> load d:\mag.dat 

就 会 将 数据 文件 读 入 内 存 并 建立 变量 mag, 它 代表 文件 中 的 矩阵 . 
在 附录 A 中 有 更 多 的 有 关 文 件 操作 的 指令 可 供 读者 参考 。 


1.4 常用 的 计算 指令 


物理 中 常用 的 计算 指令 有 两 种 ， 一 种 是 对 数据 的 操作 指令 ， 如 求 差 分 、 微 
分 、 积 分 等 ; 另 一 种 是 对 函数 操作 的 指令 ， 如 求 根 、 解 微分 方程 等 , TE MATLAB 
中 称 之 为 function functions ， 它 们 的 作用 对 象 是 M 文件 建立 的 函数 或 者 是 用 
inline 指令 建立 的 函数 . 这 些 指令 的 差别 很 大 ,例如 查找 矩阵 元 素 的 最 大 值 和 求 
一 个 函数 的 最 大 值 就 是 不 同 的 指令 . 不 断 将 各 种 指令 进行 对 比 ， 会 有 助 于 加 深 
对 它们 的 理解 . 


1.4.1 ”插值 与 曲线 拟 合 


MATLAB 的 插值 计算 功能 非常 强大 ,除了 有 一 些 指令 可 直接 调用 之 外 ,还 
有 一 个 专门 的 工具 箱 Spline Toolbox, 可 以 完成 许多 复杂 的 插值 计算 ,在 指令 窗 
口 键入 

>> help splines 


可 以 查看 . 本 节 只 介绍 几 条 简单 的 指令 。 


1. 插值 法 

计算 插值 的 指令 有 interpl, interplq 和 interp2 等 ， 分 别 介绍 如 下 : 

(1) interpl ”一 维 插值 

调用 的 语句 格式 有 三 种 : 

yi=interp1(x, y, xi) 

yi=interp1(y, xi) 

yi=interp1(x, y, xi, ‘method’) 

EXE, (x, y) 是 已 知 的 样 点 构成 的 数据 组 ， 其 中 x 是 一 维 数组 ，y 是 对 
应 的 函数 值 。xi 是 新 的 插值 节点 组 成 的 一 维 数组 ，yi 是 求 出 的 相应 的 插值 . 

要 求 x 是 单调 增加 的 , 但 可 以 是 不 等 间距 的 . 调用 时 如 果 未 给 出 x, 则 默认 
x 二 1:n ,n 为 y 的 长 度 即 元 素 的 个 数 。y 可 以 是 矢量 或 矩阵 .如果 是 矩阵 ， 则 
对 矩阵 y 中 的 每 一 列 进行 插值 ， 得 出 的 结果 击 是 nxm HM, n dE xi KE, 
m 是 y 的 行 数 . 超出 这 个 范围 的 值 一 律 返回 NaN. 
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method 是 所 用 的 插值 算法 ， 默 认为 线性 算法 ， 用 户 可 选用 以 下 算法 中 的 一 
PP. 如果 x 是 等 间距 的 ,使 用 nearest, linear, cubic 算法 的 运算 速度 要 快 一 些 . 


‘nearest’ 线性 最 近 项 插值 
‘linear’ 线性 插值 

‘spline! 三 次 样 条 插值 
‘cubic’ 立方 插值 


nearest 


spline 


8 10 


2 E 6 


linear 


cubic 


0 2 d 6 8 10 


四 种 插值 方法 的 计算 结果 


在 图 1.7 中 , 我 们 用 正弦 函数 的 10 个 值 作为 样 点 数据 组 . 再 分 别 用 四 种 方法 


插入 入 个 函数 插值 并 画 出 曲线 ,原始 数组 则 以 小 圆圈 表示 ， 


如 下 : 
x = 0:10; y = sin(x); xi = 0:.25:10 
yii = interp1(x,y,xi,'nearest’) ; 
yi2 = interpi(x,y,xi,' linear; 
yi3 = interp1(x,y,xi,’spline’) ; 
yi4 = interp1(x,y,xi,’cubic’); 
subplot (2,2,1) 


plot(xi,yil,x,y,’o’) 
subplot (2,2,2) 


plot (xi,yi2,x,y,’o’) 
subplot (2,2,3) 


plot (xi,yi3,x,y,’o’) 


实际 程序 chazhi.m 
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subplot(2,2,4) 
plot(xi,yi4,x,y,'o') 


为 了 更 好 地 对 比 ， 在 图 L8 中 将 它们 合并 在 一 幅 图 上 . 


Lor 


图 1.8 四 种 插值 方法 的 对 比 


(2) interplq ”快速 一 维 线性 插值 
调用 格式 为 
yi=interplq(x, y, xi) 


各 项 符号 的 含义 与 上 面相 同 。 它 采用 的 是 线性 插值 算法 。 要 求 x 是 单调 增 


WERE, y 是 相同 长 度 的 矢量 或 是 行 数 与 x 长 度 相 同 的 矩阵 。 它 适 用 于 不 等 
间距 的 数据 ， 因 为 它 不 进行 输入 校 验 ， 所 以 计算 速度 比 interp1(:…, ‘linear’) 更 


T. 


如 果 数 据 是 等 间距 的 ， 则 是 interp1(…, ‘linear’) 的 计算 速度 更 快 . 

(3) interp2 ”二 维 插值 

调用 格式 有 四 种 : 

zi=interp2(x, y, Z, xi, yi) 

zi=interp2(z, xi, yi) 

zi=interp2(z, ntimes) 

zi 一 interp2( = , ‘method’) 

各 项 符号 的 含义 与 上 面相 似 。 ntimes 表示 用 迭代 法 进行 n 次 内 插 计 算 . 

三 维 插 值 指 令 interp3 和 维 插值 指令 interpn 的 用 法 与 此 类 似 , 不 再 重复 . 
除了 上 面 介 绍 的 几 条 指令 ， spline 也 是 插值 计算 的 指令 ， 还 有 插值 工具 箱 


(spline toolbox) 可 资 利用 ,在 工具 箱 中 有 许多 演示 例子 ,可 以 用 指令 splexmpl, 


csapsdem, csapidem, chebdem, spcrvdem 调用 . 


2. polyfit ”曲线 的 多 项 式 拟 合 
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对 数据 作 最 小 二 乘法 的 多 项 式 拟 合 的 指令 是 polyfit, 语句 格式 是 

polyfit (X, Y, N) 

其 中 X,Y 是 样 点 数据 ，N JEU AONGA dm PEG. XR ZEE e T 
式 的 系数 ， 按 隆 星 排列。 这 个 指令 可 用 别 的 输出 格式 并 配合 指令 polyval 来 估计 
拟 合 的 误差 ， 要 深入 了 解 请 查 help. 

下 面 是 一 个 简单 的 程序 nh.m ， 首 先 用 二 次 多 项 式 0.40? 十 2t 建造 了 一 组 数 
据 s， 然 后 给 它 加 上 一 些 偏差 值 sl 得 到 数据 组 ss, 最 后 对 它 作 多 项 式 拟 合 并 将 
结果 画 成 曲线 即 图 1.9 。 图 中 数据 组 ss 用 圆圈 标 出 . 


t=0:0.5:5; 

S=2*tt+0.4.*t.*t; 

si-[0.05 -0.03 -0.01 0.03 0.01 ... 
0.01 -0.02 -0.01 0.02 0.03 0.01]; 

ss=stsi; 

P=polyfit(t,ss,2); 

y=polyval(P,t); 

plot(t,y,t,ss,'o') 


0 05 10M 20 25 30 35 40 45 60 


图 1.9 用 多 项 式 拟 合 的 曲线 
1.4.2 快速 传 里 叶 变 换 


快速 傅 里 叶 变换 (FFT) 是 离散 傅 里 叶 变换 (DET) 的 一 种 快速 算法 . MATLAB 
使 用 的 变换 公式 是 
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N 
X(k) = Sane? 7 6-0C8) (1« k « N) 
n=l 
1 N 
= N` X(ke-i2n (6-008) l1«nEN 
a(n) N2- (k)e (1 € n € N) 


长 度 为 N BARRI x WARP RE KBE N WREX. 此 处 公式 中 求 和 
指标 是 从 1 到 NN, 而 常见 的 公式 中 求 和 是 从 0 到 N — 1, 这 是 因为 矩阵 指标 不 能 
如 果 a(n) 为 实数 ， 可 以 将 公式 改写 为 实 系数 的 形式 : 


N 
ai= ps a(k) cos (aze pen) + b(k) sin (eyed) 
k=1 
其 中 
a(k) = Re(X(k)), — b(k) = —Im(X(k)) 2A) 


进行 FFT 的 指令 有 一 维 的 FFT di o I FL 3E D d ft ifft, 二 维 的 FFT fü 
令 及 其 道 变 换 指令 fO, ifft2, n 维 的 FFT 指令 及 其 道 变换 指令 fftn, iftn . 


1. fft, ifft 一 维 的 FFT 及 其 送 变 换 

其 语句 格式 为 

fft (x) 

fft(x, N) 

fft(x, [ ], dim) 

fft(x, N, dim) 

在 这 里 ，x 是 待 变换 的 数据 ， 如 果 输 入 数据 的 长 度 是 2 ee, WU FFT 
自动 采用 以 2 为 基数 的 快速 算法 , 否则 就 采用 较 慢 的 算法 . 如 果 x 是 和 矩阵，FFT 
是 对 每 一 列 进行 ， 如 果 x 是 多 维 询 阵 ，FFT 只 对 在 前 面 的 维 的 元 素数 不 是 1 的 
维 进 行 。N 表示 进行 N 个 点 的 FFT ,如 果 NN 大 于 x 的 长 度 , 则 用 零 补 充 ; 如 果 
x 大 于 的 长 度 , 则 把 多 余 的 部 分 去 掉 。 后 两 条 格式 的 功能 是 相同 的 ， FFT 只 
对 dim 指定 的 维 进 行 。 道 变换 ifft 的 格式 与 世 的 格式 相同 . 


2. fft2, ift2 三 维 的 FFT 及 其 逆 变换 
其 语句 格式 为 
fft2(x) 


fft2(x, mrows, ncols) 
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在 这 里 ，x 是 要 变换 的 二 维和 矩阵 ， 如 果 它 是 一 维 的 ， 则 按 一 维 进行 变换 . 
mrows, ncols 表示 在 变换 之 前 ,通过 补 零 或 截断 的 办 法 , 将 x 的 大 小 改造 成 mxn 
的 矩阵 . 逆 变 换 ift2 的 格式 与 世 2 的 格式 相同 . 

n 维 的 FFT 及 其 逆 变 换 指 令 fftn, ifftn 的 格式 分 别 与 fft2, ifft2 的 格式 相同 . 

下 面 的 程序 Bym 是 一 个 傅 里 叶 变 换 的 例子 . 

x = [4 3 7 -5 1 -3 -42]' ; 


Y=fft (x) 
X-ifft(Y) 
Y(1)=[]; Whe dE E 
n-fix(length(Y)/2); XX 计算 不 同 频 率 的 数目 
freq-(1:n)/length(Y); hit SER 3x 
power-abs(Y(1:n)).^2/(1ength(Y).^2); WX 计算 功率 谱 
power=power’ 
程序 运行 的 结果 如 下 : 
Y = 

5.0000 

12.1924 - 10.2929i 

2.0000 - 3.0000i 

-6.1924 + 11.7071i 

11.0000 


-6.1924 - 11.70T71i 
2.0000 + 3.0000i 
12.1924 + 10.2929i 


4.0000 

3.0000 + 0.0000i 
7.0000 
-5.0000 - 0.0000i 
1.0000 
-3.0000 + 0.0000i 
-4.0000 

2.0000 - 0.00001 


0.1429 0.2857 0.4286 


power - 
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5.1959 0.2653 3.5796 

这 里 ， 实 数 数组 x 的 FFT 变换 是 复数 Y， 而 Y 的 道 变 换 X 就 是 x。Y 的 
第 一 个 分 量 是 x 的 所 有 分 量 之 和 所 得 的 常量 ， 而 y 的 第 五 个 分 量 是 Nyquist Jii 
率 。y 的 后 三 个 分 量 对 应 负 频 ， 对 于 实数 x , 它们 是 y 的 前 一 半 中 的 三 个 频率 
Te AY SE GE. 按照 变换 公式 可 以 求 出 各 个 频率 所 对 应 的 功率 谱 。 

通过 本 节 的 学 习 , 可 以 看 出 MATLAB 有 以 下 特点 : 同一 个 任务 可 以 有 多 条 
指令 ; 同一 条 指令 可 有 多 种 调用 格式 和 多 种 算法 ; 不 同 算法 有 不 同 的 精度 . 这 
说 明 MATLAB 的 功能 强大 和 完善 , 但 也 容易 使 初学 者 眼花 综 乱 . 事先 了 解 这 一 
点 ， 才 不 会 被 名 目 众 多 的 指令 弄 得 无 所 适 从 . 


1.4.3 FRA. he) (MS ra 


MATLAB 可 以 对 函数 求 极 小 值 和 根 , RY PA di ORR A RK 
值 ， 找 矩阵 的 最 大 元 素 , 求 多 项 式 的 根 . 在 优化 工具 箱 (Optimization Toolbox) 中 
有 许多 有 关 的 指令 .键入 help optim 可 以 查看 . 下 面 介 绍 几 条 常用 的 指令 : 


1. fminbnd ”对 单 变量 函数 求 极 小 值 
语句 格式 和 各 项 符号 说 明 如 下 : 

x = fminbnd(fun, x1, x2) 

x = fminbnd(fun, x1, x2, options) 

x = fminbnd(fun, x1, x2, options, pl, p2, =) 
[x, fval] = fminbnd(---) 

[x, fval, exitflag, output] = fminbnd(---) 

[x, fval, exitflag, output] = fminbnd(---) 


x, fval “5 B/E XT YAY x TEURI BR BEL 

fun 函数 名 ， 用 M 文件 建立 的 要 加 引号 ， 指 令 inline 建立 的 不 加 . 

xl, x2 自 变量 取 值 范围 . 

options 控制 算法 的 优化 选项 ， 有 四 项 (14535). ERE. 

Display 表示 计算 过 程 是 否 显示 ， ‘iter’ 显示 中 间 的 所 有 步骤 ， ‘final 
只 显示 最 后 一 步 ，'off ' 为 不 显示 。 

Tolx x 的 允许 误差 ,默认 值 是 0.0001. 

TolFun 函数 值 的 允许 误差 。 

MaxFunEvals ”规定 最 多 计算 多 少 次 函数 值 ， 默 认 值 是 500 . 

Maxlter 规定 最 多 进行 多 少 次 的 插值 计算 . 

pl p2, = E K RR E AY BS BL 


exitflag 表示 中 止 搜索 的 条 件 。 1 是 根据 TolFun 得 到 的 x 的 收敛 
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值 ，0 是 已 达到 MaxFunEvals 要 求 的 函数 值 的 计算 个 数 . 
output 已 执行 的 迭代 计算 的 次 数 . 


2. fminsearch ”对 多 变量 函数 求 极 小 值 
语句 格式 和 各 项 符号 说 明 如 下 : 

x = fminsearch(fun, x0) 

x = fminsearch(fun, x0, options) 


x = fminsearch(fun, x0, options, pl, p2, =) 


[x, fval] = fminsearch(---) 

[x, fval, exitflag] = fminsearch(--) 

fun 用 M 文件 建立 的 函数 . 

x0 猜测 的 初始 值 . 

x , fval 局 部 极 小 值 对 应 的 自 变 量 的 值 和 函数 的 值 . 

pl, p2, = 传递 给 函数 的 参量 。 

options 控制 算法 的 优化 选项 ， 有 五 项 。 [ ] 是 默认 值 ， 后 面 有 介绍 。 
Display 表示 计算 过 程 是 否 显示 。 

TolFun 函数 值 的 允许 误差 . 

TolX x 人 允许 的 误差 值 ， 默认 值 是 0.0001 , 

TolFun 函数 值 允 许 的 误差 ， 默 认 值 是 0.0001 . 

MaxFunEvals 规定 最 多 计算 多 少 次 函数 值 ， 默 认 值 是 200*length(x0) 。 
Maxlter 规定 最 多 进行 多 少 次 的 插值 计算 . 

exitflag 停止 搜索 的 条 件 ，1 是 收敛 到 x,0 是 达到 规定 的 迭代 次 数 . 


3. findmax(z) WKS RBK 
用 三 次 或 二 次 插值 求 和 撩 量 z 数据 中 的 极 大 值 . 


4. findmax2(z) AER AE gd X 
用 二 次 插值 求 矩 阵 z 中 所 有 极 大 值 . 


5. fzero ”对 单 变量 函数 求 震 
语句 格式 及 各 项 符号 说 明 如 下 : 

x = fzero(fun, x0) 

x = fzero(fun, x, options) 

x = fzero(fun, x, options, pl, p2, …) 
[x, fval] = fzero(--) 


[x, fval, output] = fzero(…) 
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x 找到 的 零点 ， 通 数值 在 此 会 改变 符号 , 没有 零点 则 返回 NaN . 

fval 零点 对 应 的 函数 值 . 

fun 用 M 文件 或 inline 建立 的 单 变量 函数 ， 其 函数 值 必须 是 实数 . 

x0 猜测 的 初始 值 或 搜寻 零点 的 区 间 [x0(1), x0(2)] ， 必 须 是 实数 .如 
是 区 间 ， 要 求 函 数值 在 x0 (1) 与 x0 (2) 符号 相反 。 如 是 猜测 值 ， 
则 fzero 将 寻找 一 个 包含 x0 同时 函数 值 符 号 发 生 改 变 的 区 间 ， 如 
果 寻 找 中 遇 到 了 Inf, NaN 或 复数 ， 则 寻找 被 中 止 ， 

options ”控制 算法 的 优化 选项 ， 可 选 Display 和 TolX 两 项 ，[] 是 默认 值 . 

pl,p2 ”传递 给 函数 的 参数 

exitflag ”找到 零点 则 输出 值 > 0, 否则 输出 值 <0. 

output ”已 执行 的 迭代 计算 的 次 数 . 


6.roots(c) 对 多 项 式 求 过 点 
指令 roots(c) 对 以 c 作为 各 蜂 次 项 的 系数 所 组 成 多 项 式 求 零点 。 如 多 项 式 为 


ee” + cazn 5 + 十 cnz + Cnpi 
则 c 的 表达 式 为 
c= [ci， C2, ''*, Cn; €n4.1] 
举例 如 下 : 


(1) 建立 函数 ax 并 画 出 函数 图 形 ( 见 图 1.10 ) 


TO 
图 1.10 me 2? -— 82? +24+10 的 图 形 
>> qx = inline(’x.73 - 8*x.^2 + x + 10^); 
>> fplot(qx, [-2, 8]) 
(2) 求 函数 的 极 小 


>> fminbnd(qx, -2, 8, optimset('Display',off')) 
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ans= 
5.2701 

(3) 求 极 大 值 

先 求 出 对 应 变量 区 间 x = [ -2 :0.4:8] 的 函数 值 z 这 是 一 个 矢量 . 然 
后 用 findmax 求 z 的 极 大 值 ， 它 是 用 插值 法 求 出 的 ， 所 以 不 一 定 是 矢量 z 的 元 
素 ,， 共 得 到 两 个 极 大 值 10.0315 和 18.0000 .为 了 对 比 ,还 用 矩阵 运算 的 指令 max 
求 出 了 =z 的 最 大 元 素 18. 

>> z=qx([-2:0.4:8]) 


z= 
Columns 1 through 7 
-32.0000 -16.1760 -4.4480 3.5680 8.2560 10.0000 9.1840 
Columns 8 through 14 
6.1920 1.4080 -4.7840 -12.0000 -19.8560 -27.9680 -35.9520 
Columns 15 through 20 
-43.4240 -50.0000 -55.2960 -58.9280 -60.5120 -59.6640 
Columns 21 through 26 
-56.0000 -49.1360 -38.6880 -24.2720 -5.5040 18.0000 
>> findmax(z) 
ans = 
10.0315 
18.0000 
>> max(z) 
ans = 
18 
(4) 求 函数 的 零点 
对 三 个 不 同 的 零点 用 三 个 不 同 的 猜测 值 ， 可 以 从 小 到 大 逐步 搜索 。 
>> fzero(qx,-0.8) 
ans = 
=f 
>> fzero(qx,2) 


ans = 


1.2984 
>> fzero(qx,6) 


ans = 
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7.7016 


如 果 用 符号 变量 表达 式 CUL L5 d$) 就 可 以 把 三 个 根 一 次 求 出 来 ， 而 且 是 精确 
解 ， 再 用 double 将 它 转 为 双 精 度数 。 


>> GX=sym('x73-8*x72+x+10') 
GX = 
X73-8*x72+x+10 
>> GXANS=solve(GX) 
GXANS = 
[ -1] 
[ 9/2431/2*41^ (1/2)] 
[ 9/2-1/2*41^ (1/2)] 
>> double(GXANS) 
ans - 
-1.0000 
7.7016 
1.2984 
(5) 用 多 项 式 求 根 指令 找 ax 的 根 
>> roots([1,-8,1,10]) 
ans = 
7.7016 
1.2984 
-1.0000 
{H 42, fzero(inline(‘abs(x) + 1'), 1) 的 结果 是 NaN ， 因 为 此 时 不 存在 零点 。 
(6) 用 M 文件 来 建立 函数 
下 面 建立 了 一 个 带 有 参数 的 函数 文件 qxm . 
^^ program qx.m 
function y = qx(x, a) 
y = x.^3 - a*x.^2 + x + 10 


对 文件 建立 的 函数 使 用 以 上 的 命令 时 , 要 给 函数 名 加 引号 . 以 求 零点 为 例 ， 


操作 如 下 ， 各 种 选项 采用 了 默认 值 ， 输 出 的 结果 包括 找到 零点 的 区 间 、 变 量 值 
和 函数 值 . 传 给 函数 的 参量 值 为 a = 8 . 


>> [x, y] = fzero('qx'，-0.8，[ 1, 8) 
Zero found in the interval: [-0.544，-1.056] . 
xX = 


-1 
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y = 
0 
如 果 用 指令 optimset 去 改变 默认 的 选项 ， 如 要 求 显 示 计 算 过 程 ， 则 操作 如 下 : 
>> [x, yl = fzero('qx', -0.8, optimset('disp', 'iter'), 8) 
(7) 求 多 元 函数 极 小 值 
先 建立 函数 文件 threevar.m, 
function b = threevar(v) 
x = v(1); y = v(2); z = v(3); 
b = x^2 + 2.5*sin(y) - z^2*x^2*y^2; 
然后 在 (70.6, -1.2, 0.135) 点 执行 求 极 小 值 的 指令 . 
>> v = [-0.6 -1.2 0.135]; 
>> a = fminsearch('threevar',v) 
a= 
0.0000 -1.5708 0.1803 


1.4.4 f 7; 1257; Te fH 


解 方程 可 分 为 两 种 ， 一 种 是 对 符号 变量 方程 求解 析 解 ; 另 一 种 是 对 非 符号 
变量 方程 求 数值 解 . 


1. solve ” 求 符号 变量 方程 的 解析 解 

符号 工具 箱 中 的 指令 solve 可 以 用 来 求 符 号 变量 方程 的 解析 解 。 下面 建立 
一 个 符号 变量 方程 ， 并 对 它 求 解 . 

>> syms a b c x 

>> f-a*x^2t*b*x*tc 

>> solve(f) 


ans - 
[1/2/a*(-b* (b^2-4xaxc) ^ (1/2))] 


[1/2/a*(-b- (b^2-4*a*c) ^ (1/2))] 
也 可 以 对 指定 变量 求解 ， 如 
>> b = solve(f,b) 
b = 
-(axx^2*c) /x 
指令 solve FY LAE = f8 eR BUTT FE 
>> s = solve('cos(2*x)+sin(x)=1') 


s £& 
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0 
pi 
1/6*pi 
5/6*pi 
输出 的 解 是 有 四 个 分 量 的 一 个 矢量 。 再 看 另 一 个 例子 : 
>> s = solve(x^3 - 2*x^2 = x - 1^ 
s = 
1/6*(28484*ix3^(1/2))^ (1/3) +14/3/ (28+84*i*37 (1/2) )*(1/3)+2/3 
-1/12*(28484*i*3^ (1/2) )* (1/3) -7/3/(28*84*i1*3^ (1/2) )* (1/3) 
4+2/341/2*i*37 (1/2) *(1/6* (28*84*i*3^ (1/2)) ^ (1/3) 
-14/3/ (28*84*i*3^ (1/2)) ^ (1/3)) 


-1/12*(28484*i*3^ (1/2)) ^ (1/3) -7/3/ (28+84*i*3* (1/2)) ^ (1/3) 
4+2/3-1/2*i*37 (1/2) *(1/6* (28+84*1*37 (1/2) )7 (1/3) 
-14/3/ (28*84*i*3^ (1/2)) ^ (1/3)) 
把 它 表示 成 数值 形式 的 指令 是 vpa， 
>> vpa(s, 10) 
ans = 
2.246979604  *.1e-9*i 
-0.8019377357  *.3e-9*i 
0.5549581323 -.5e-9*i 
指令 solve 也 能 解 方程 组 ， 设 r1, r2, T3 为 已 知 量 ，zx, y, z 为 未 知 量 ， 解 下 
面 的 非 线性 方程 组 : 


1 1 1 
T ytz ri 
1 1 1 
二 十 D 
y z tr r2 
1 1 1 
z at+ty r3 


具体 的 解法 如 下 : 


>> syms x y z r1 r2 r3 
>> [x,y,z]-solve(1/x*i/(y*z)-1/r1,1/y*1/(z*x) -1/r2,1/z41/ (x*y) -1/r3) 


xX = 
1/2*(-2xri*r3-2xr2xri4ri^2-2xr2xr34r3^24r2^2)/(ri-r3-r2) 


-1/2x(-2*rixr3-2*r2*ri*ri^2-2x*r2*r34r3^24r2^2)/(ri4r3-r2) 
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-1/2*(-2x*ri*r3-2*r2*ri*ri^2-2*r2*r34r3^24r2^2)/(ri-r314r2) 

再 解 一 个 方程 组 : 
>> syms x y alpha 
>> [x,y] = solve(x*2*y*2-1,x-(y/2)-alpha) 
x= 

1/2*alphat1/2* (alpha*2+2)~* (1/2) 

1/2*alpha-1/2* (alpha*2+2)~* (1/2) 

1/2*alpha+1/2* (alpha*2-2)~ (1/2) 

1/2*alpha-1/2* (alpha*2-2)~* (1/2) 


-alphat (alpha*2+2) ~ (1/2) 
-alpha-(alpha^2*2)* (1/2) 
-alphat (alpha*2-2) * (1/2) 
-alpha-(alpha^2-2)* (1/2) 


2. 求 线性 方程 的 数值 解 

如 果 方 程 没 有 解析 解 或 者 只 要 求 数值 解 ,那么 使 用 符号 工具 箱 解 方程 并 非 
最 佳 选择 ， 而 应 该 使 用 MATLAB 本 身 的 数值 求解 的 方法 。 MATLAB 的 做 法 是 
将 方程 组 分 为 线性 的 和 非 线 性 的 两 类 ， 对 形式 为 A x = bb 的 线性 方程 组 ，( 这 
里 和 A 是 n x m 的 矩阵 ，b 是 已 知 矢量 ，x 是 未知 矢量 ) 可 分 为 三 种 : 


n=m H A 非 奇 异 恰 定 方程 
n>m 超 定 方程 
n<m 欠 定 方程 


H] MATLAB 求解 时 都 是 使 用 矩阵 左 除 的 方法 即使 用 程序 式 x = AND. 例如 
要 解 方程 组 : 
3x + 5y — 7z = 34 
2x — 12y + 3z = —56 


—“£+9y + 8z = 27 


相应 的 操作 是 

>>A= [3 5-7;2 -12 3; -198]; 
>> b = [ 34; -56; 27]; 

>> x = A\b 

ans = 


0.5474 
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4.3854 
-1.4901 


3. fsolve 


求 非 线性 方程 的 数值 解 


下 面 介绍 用 数值 计算 法 解 非 线性 方程 (组 ) 的 指令 fsolve 。 指令 fsolve 是 用 
最 小 二 乘法 解 非 线性 方程 f(z) = 0 ， 命 令 格式 如 下 : 


x = fsolve(fun, x0) 


x = fsolve(fun, x0, options) 


x = fsolve(fun, x0, options, pl, p2, --) 


[x, fval] = fsolve(fun, x0, …) 


[x, fval, exitflag] = fsolve(fun, x0, …) 


[x, fval, exitflag, output] = fsolve(fun, x0, …) 


[x, fval, exitflag, output, jacob] = fsolve(fun, x0, …) 


各 项 符号 的 意义 为 

xfvl ”零点 的 位 置 与 对 应 的 函数 值 ，f 和 x 可 以 是 矢量 或 矩阵 . 

fun 与 非 线 性 方程 对 应 的 函数 ,方程 通常 用 M 文件 建立 . 

x0 猜测 的 初始 解 ， 作 为 求解 过 程 的 出 发 点 . 

options ”控制 算法 的 优化 选项 ，[ ] 是 默认 值 . 参见 后 面 介 绍 . 

pl,p2 向 函数 传递 的 参量 . 

exitflag “中止 求解 的 条 件 . 大 于 零 是 找到 收敛 解 x ， 等 于 零 是 已 经 达到 设 
定 的 计算 郴 数值 的 次 数 ， 小 于 零 是 没有 找到 收敛 解 . 

output “输出 过 程 信 息 ， 如 揪 值 计算 和 求 函 数值 的 次 数 ， 所 用 的 算法 等 . 

jacob 返回 函数 在 x 的 jacob 行列 式 ，jacob 行列 式 是 函数 梯度 的 转 置 。 

下 面 解 方程 组 : 


2cos(x) + VY 一 In(z) =7 
27 + 2y — 8z = —1 


z +y — cosh(z) =0 


首先 要 编写 函数 文件 ， 将 方程 中 的 z,y,z 看 作 矢量 XW =P, Hf 


数 文件 qg.m , 


ES 


^^ program qg.m 


function F - gg(X) 

F = [2*cos(X(1)) + sqrt(X(2)) - log(X(3)) - 7; 
27X(1) + 2*X(2) - 8*X(3) + 1; 
X(1) + X(2) - cosh(X(3))] 
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任意 猜测 一 个 初始 解 zo: 


zo = [ 0.5+0.5i, 0.5+0.5i, 0.5+0.5i | 


求解 过 程 如 下 : 

>> [X,Y] = fsolve ('qg’, [0.5+0.5i, 0.5+0.5i, 0.5+0.5i]) 
X = 

-0.0144 + 1.60091 1.0568 - 1.74631 0.4442 - 0.32571 
Y= 


-0.0003 - 0.00054 
0.0001 + 0.00014 
-0.0001 + 0.00164 

AR RANT, BES HT HH EX (EA ew CLL Y . RRE Y [RT REY E 


Y (1) = 2cos(x) + VY —1n(z) — 7 
Y(2) = 27 -2y —8z 1 
Y(3) = z + y — cosh(z) 


当 Y 了 的 三 个 分 量 都 为 零 时 的 六 值 ， 就 是 方程 的 解 . 求解 条 件 ( 优化 选项 ) 
的 选择 使 用 默认 值 ( 见 1.4.5 节 ), 它 对 函数 值 的 误差 要 求 是 10° 。 从 YY 的 表达 
式 可 以 看 出 , 在 最 小 二 乘法 的 意义 上 , 所 得 的 解 入 是 符合 要 求 的 . 应 该 注意 , 5H 
测 的 初始 值 如 果 离 零点 较 远 ， 很 可 能 由 于 在 求解 条 件 的 选择 中 某 个 条 件 的 限制 
而 不 能 求 出 零点 ， 这 时 可 以 改变 初始 值 或 者 改变 求解 条 件 的 参数 ， 重 新 求解 ， 
直到 找到 满意 的 解 为 止 . 


1.4.5 “指令 中 的 选项 


在 使 用 fzero, fminbnd, fminsearch, fsolve 等 指令 时 ， 往 往 需 要 说 明 使 用 的 条 
件 ， 如 给 定 解 的 精度 ， 指 定 求解 过 程 的 显示 方式 即 求解 过 程 是 否 显 示 出 来 等 。 
在 MATLAB rp, 这 些 都 有 默认 设置 , 但 可 以 用 option 中 的 选项 来 更 改 原来 的 默 
Wit. 这 是 一 些 很 重要 的 内 容 ， 如 果 不 能 正确 地 使 用 它们 ， 可 能 得 不 到 预期 
的 结果 . 

有 关 选 项 的 指令 有 optimset 和 optimget 。 


l. optimset ”建立 和 修改 结构 数组 “优化 选项 ” 
语句 格式 如 下 : 


options = optimset('param1’, valuel, 'param?2', value2, …) 
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options = optimset(oldopts, 'param1’, valuel, … ) 
options = optimset(oldopts, newopts) 
options = optimset(optimfunction) 


options — optimset 


optimset 
各 项 符号 说 明 如 下 : 
options 结构 数组 “优化 选项 ”的 名 称 ; 


‘param’, valuel 选项 中 的 参数 1 及 其 取 值 ; 

'param2', value2 选项 中 的 参数 2 及 其 取 值 ; 

oldopts, newopts 旧 的 优化 选项 、 新 的 优化 选项 ; 

optimfunction 使 用 优化 选项 的 函数 . 

上 面 的 各 种 使 用 格式 中 ， 第 一 种 格式 设置 优化 选项 的 方法 是 指定 各 个 参数 
的 取 值 ， 对 不 指定 取 值 的 参数 ， 将 被 设置 [] ， 它 表示 取 默 认 值 . 在 不 引起 混淆 
的 情况 下 ,参数 名 可 以 只 键入 前 面 的 几 个 字母 ， 也 不 必 区 分 大 小 写 ， 如 用 "tolf ' 
表示 "TolFun' , 但 数值 的 输入 必须 格式 正确 ， 否则 仍然 采用 默认 值 . 

第 二 种 格式 使 用 了 原来 的 优化 选项 ， 但 对 其 中 的 参数 1 等 指定 了 新 值 . 

第 三 种 格式 合并 两 个 优化 选项 oldopts 和 newopts , 重复 部 分 取 newopts 的 值 . 

第 四 种 格式 是 将 优化 选项 的 值 赋予 options, 如 options = optimset (‘fminbnd’) 。 

第 五 种 格式 建立 了 一 个 选项 结构 数组 ， 其 中 的 全 部 参数 都 设置 成 []. 

键入 optimset 可 显示 如 下 所 示 的 全 部 参数 的 名 称 及 其 默认 值 ， 其 中 默认 值 


HORR: 
DerivativeCheck: [ on | {off} ] 
Diagnostics: [ on | {off} ] 
DiffMaxChange: [ positive scalar {1e-1} ] 
DiffMinChange: [ positive scalar {1e-8} ] 
Display: [ off | iter | {final} ] 
GoalsExactAchieve: [ positive scalar | {0} ] 
GradConstr: [ on | {off} ] 
Grad0bj: [ on | {off} ] 
Hessian: [ on | {off} ] 
HessPattern: [ sparse matrix ] 
HessUpdate: [ dfp | gillmurray | steepdesc | {bfgs} ] 
JacobPattern: [ sparse matrix ] 
Jacobian: [ on | {off} ] 
LargeScale: [ {on} | off ] 


14 常用 的 计算 指令 61 


LevenbergMarquardt: [ on | off ] 
LineSearchType: [ cubicpoly | {quadcubic} ] 
MaxFunEvals: [ positive scalar ] 
MaxIter: [ positive scalar ] 
MaxPCGIter: [ positive scalar ] 
MeritFunction: [ singleobj | multiobj ] 
MinAbsMax: [ positive scalar | {0} ] 
PrecondBandWidth: [ positive scalar | Inf ] 
TolCon: [ positive scalar ] 
TolFun: [ positive scalar ] 
TolPCG: [ positive scalar ] 
TolX: [ positive scalar ] 
TypicalX: [ vector ] 


键入 help optimset 可 查看 全 部 参数 的 说 明 , 这 里 对 其 中 几 个 参数 说 明 如 下 : 


Display 显示 方式 ， 分 不 显示 、 过 程 显 示 、 最 终 显 示 。 
MaxFunEvals 规定 函数 值 的 最 多 计算 次 数 . 

Maxlter 最 多 迭代 次 数 。 

TolFun 最 终 的 函数 值 的 误差 . 

TolX Hy 2 R6 A5 (AY V 28. 

2. optimget ”获取 优化 选项 中 参数 取 值 的 信息 

有 两 种 语句 格式 : 


val = optimget(options, ‘name’) 
val = optimget(options, ‘names’, default) 


在 这 里 ， 


options 是 由 optimset 所 设 定 的 值 。 第 一 种 格式 是 从 优化 选项 中 提 


取 由 name 指定 的 参数 的 取 值 。 如果 该 参数 没有 指定 值 ， 则 返回 空 矩 阵 [ ] 。 
第 二 种 格式 是 从 优化 选项 中 提取 指定 的 参数 的 取 值 。 如果 该 参数 没有 指定 


值 ， 则 返回 默认 值 . 例如 
>> val = optimget(opts, 'TolX', 1e-4) 

当 ToX 没有 指定 值 时 ， 得 到 val = le—4. 

1.4.6 ”差分 、 微 分、 梯度 和 拉 普 拉 斯 算 符 
本 节 介绍 计算 差分 Az nna RES, 


A ERE di ud a 
斯 算 子 表示 的 二 阶 导 数 Af = 5 + E 等 的 指令 。 


求 梯度 


d 


df df 求 拉 普 拉 


dy 
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1. diff iE E 

语句 格式 为 : 

diff(X) 

diff(X, N) 

diff(X, N, DIM) 

各 项 符号 含义 为 : 

如 果 X 义 是 列 GT) 矢量 ，dif(CX) 的 计算 式 是 [ X(2)-K(1), K(3)-X(2), ，…， 
X(n)-X(n-1) 1, ， 即 后 项 减 前 项 ; WIR X AER ME, diff(X) 是 对 窍 阵 的 行 矢 量 作 差 
分 计算 所 得 到 的 矩阵 [X(2:n,:) - X(1:n-1,:)] ， 即 后 行 减 前 行 . 

XT N ÈI, EE X 的 维 元 素数 不 为 1 的 维 进行 差分 计算 .。 

指令 dif(X, N) 是 对 矩阵 X 的 列 矢量 计算 N 阶 差分 ，N 应 小 于 或 等 于 矩阵 
列 矢 量 的 元 素数 。 

指令 diff(X, N, DIM) 是 对 矩阵 X 中 由 DIM 代表 的 维 作 差分 计算 , 如 果 N 大 
于 或 等 于 DIM 的 维 元 素数 ， 则 返回 空 矩 阵 . 

下 面 列举 的 例子 表明 ， dif(X, 1 D) 表示 对 和 X 的 每 列 进行 一 阶 差分 计算 ， 
即 所 得 结果 是 后 行 减 前 行 ， 这 个 结果 与 dif(X) 和 diff(X, 1) 计算 的 结果 是 一 样 
BJ. dif(X, 1, 2) 是 对 X 的 每 行进 行 一 阶 差 分 计算 即 所 得 结果 是 后 列 减 前 列 ; 
diff(X,2,2) 是 对 和 的 每 行进 行 二 阶 差分 计算 ; 而 diff(X,3,2) 是 对 每 行 作 三 阶 差 分 
计算 ， 阶 数 正 好 等 于 行 的 元 素数 ， 结 果 是 得 到 一 个 空 矩阵 . 

>>X= [3 7 5 

0 9 2]; 
>> diff(X) 
-3 2 -3 
>> diff (X,1,1) 
-3 2 -3 
>> diff (xX ,1 ,2) 
4 -2 
9 -7 
>> diff(X,2,2) 
-6 
-16 
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>> diff(X,3,2) 
Empty matrix: 2-by-0 

差分 可 以 用 来 作 导 数 的 数值 近似 计算 ， 如 在 下 面 的 程序 chm 中 ，y1 就 是 
用 差分 计算 sna? 的 导数 ，y2 则 是 用 导数 公式 来 计算 snz ”的 导数 ， 二 者 之 差 
y 很 小 可 以 从 画 出 的 曲线 看 出 来 . 由 于 差分 的 结果 比 用 导数 公式 计算 的 结 
少 一 个 元 素 ， 故 画图 时 少 取 了 一 个 元 素 。 此外， 用 后 面 介绍 的 计算 梯度 的 指令 
gradient 也 可 以 计算 导数 ，y3 就 是 用 它 计 算 的 ， 从 图 形 可 以 看 出 ，y3 和 y2 的 
差别 也 很 小 . 

% program cf 

h =0.001; 

x=0O: h: pi; 

yi-diff(sin(x.^2))/h; 

y2-2*cos(x.^2).*x; 

y-yi-y2; 

figure 

plot(yi-y2(1:end-1)) 

hold on 

y3-gradient(sin(x.^2),h); 

plot(y3-y2) 


2. gradient 计算 短 阵 或 多 维 列 阵 的 梯度 
语句 格式 为 

[fx, fy] = gradient(f) 

[fx, fy] = gradient(f, h) 

[fx, fy] = gradient(F, hx, hy) 

[fx, fy, fz] = gradient(f) 

[fx, fy, fz] = gradient(f, hx, hy, hz) 


[fx, fy, fz, =] = gradient(f, --- ) 

各 项 符号 含义 为 

fx 代表 df/dx , FE x CAU) 方向 的 偏 微分 . 

fy 代表 df/dy , Fe y CÎT) 方向 的 偏 微分 。 

£ 代表 df/dz , 是 z CES) 方向 的 偏 微分 . 

f 求 梯 度 的 矩阵 或 列 阵 . 

h 标量 ， 是 各 个 方向 的 步 长 . 不 指定 ha Bf UOI. 


hx,hy,hz 标量 或 矢量 ,分 别 表示 在 x,y,z 方 向 上 的 步 长 。 当 它们 是 矢 
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量 时 ， 其 长 度 应 与 1 对 应 的 维 的 元 素数 相等 . 

注意 , 对 矢量 用 gradient 作 梯 度 计算 所 得 的 结果 比 用 dift 作 差分 计算 所 得 的 
结果 多 一 个 元 素 ， 同样 用 它们 对 和 矩阵 作 运 算 时 也 有 这 种 差别 。 当 f 是 矢量 时 ， 
df =gradient(f,h) 可 以 作 导 数 的 近似 数值 计算 公式 ， 

例 ”电量 为 1/4neo 的 正人 负电 荷 分 别 位 于 平面 上 的 (0.2, 0) fit (—0.2, 0) 处 ， 
形成 一 个 电 偶 极 子 . 下面 的 程序 qtdm 画 出 了 电 偶 极 子 的 等 势 面 ( 见 图 1.11 ). E 
偶 极 子 的 电势 为 Z， 利用 指令 gradient 计算 它 在 两 个 方向 的 梯度 ， 指 令 contour 
是 画 等 高 线 ， 在 这 里 画 出 的 是 等 电位 面 ， 指 令 quiver 则 画 出 各 点 的 电场 的 方向 
和 大 小 . 


-0.25 -0.15 -0.05 0 0.05 0.15 0.25 


图 1.11 BRIT A) SEIA 


^program qtd.m 

h=0.041; x=-0.3:h:0.3; y=-0.3:h:0.3; 

[X,Y]=meshgrid(x,y); 
Z-1./sqrt((X-0.2).^2.*Y.^2)-1./sqrt ((X+0.2) .^24Y.^2) ; 
[PX,PY]-gradient(-Z,h); 
contour(x,y,Z,[-12,-8,-5,-3,-2,-1,-.5,-.1,.1,.5,1,2,3,5,8,12] ,"b^) 
hold on 

quiver(X,Y,PX,PY,’k’) 


3. del2(U) KARR ALE AT 
JEH ME U Zr n TE REOE SE EY BC u(a,y) , del2(U) 的 定义 为 


1/du qu 
L = 0.25A5u = Pi t + =) 
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工 是 一 个 与 避 大 小 相同 的 矩阵， 移 阵 内 部 的 各 个 元 素 是 
1 


Lig = TUF + Uiig + uini + Uij—i) - ui 


在 矩形 网 格 的 边缘 则 使 用 三 次 方 的 外 推 法 来 使 用 这 个 公式 . 对 有 UN 个 变量 的 
多 元 函数 u(x, y, z, =), del2(U) 表示 
1 (3 du du =) 


ee e ED 
2N \dr? dy? dz 


其 语句 格式 为 

L = del2(U) 

L = del2(U, h) 

L = del2(U, hx, hy) 

L = del2(U, hx, hy, hz, =) 


各 项 符号 意义 为 
U N Zik Fil BE. 
h 是 步 长 ,不 指定 上 的 值 则 取 默 认 值 1. 


hx, hy, hz ”分 别 是 x, y z 相应 的 步 长 。 标 量 表示 步 长 相同 ,矢量 则 表示 每 
步 步 长 ，hx, hy, hz 要 与 U 对 应 的 元 素 个 数 相等 . 
下 面 的 例子 表明 , 对 函数 U(z,y) = (a? y^) A AU — 4, 而 程序 式 4xdel2(U) 
算得 的 结果 也 是 4， 可 见 两 者 是 等 效 的 . 
[x,y] = meshgrid( -2:2, -3:3 ); 


U = x.*x + y.*y 


U = 
13 10 9 10 13 
8 5 4 5 8 
5 2 1 2 5 
4 1 0 1 4 
5 2 1 2 5 
8 5 4 5 8 
13 10 9 10 13 
V = 4*de12(U) 
V = 
4 4 4 4 4 
4 4 4 4 4 
4 4 4 4 4 
4 4 4 4 4 
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4 4 4 4 4 

4 4 4 4 4 

4 4 4 4 4 
1.4.7 积分 


利用 MATLAB 的 指令 可 对 矢量 、 和 矩阵 和 多 维 列 阵 进行 梯形 积分 ; 对 函数 进 
行 自 适应 法 的 辛 普 生 积分 和 柯 特 积分 ， 还 可 以 作 二 重 积 


l. trapz 梯形 积分 

语句 格式 为 

z=trapz(y) 

z=trapz(x, y) 

z=trapz(x, y, dim) 

HMA, trapz(y) 计算 y 的 数值 梯形 积分 , 步 长 默认 为 1, 如 果 步 长 不 是 
1 而 是 h ， 则 要 将 z 乘 以 步 长 的 值 h 。 如果 y 是 矢量 ，trapz(y) 是 一 个 数 ; WR 
y ÆRE, trapz(y) 对 y 的 每 个 列 矢 量 作 积分 ， 结 果 是 个 行 天 量 ; 如 果 y 是 一 个 
N 维 列 阵 ， 计 算 从 维 的 元 素数 不 是 1 的 维 开始 . 

trapz(x, y) 计算 y 对 x 的 梯形 积分 ，x 和 yy 的 长 度 必 须 相 等 . 

trapz(x, y, dim) 对 dim 指定 的 y 的 维 进行 积分 ,x 的 长 度 必须 是 size(y, dim) . 

例如 : 要 对 函数 


y= 2-1 (r = 0:0.1:1.5) 


作 梯 形 积 分 . 操作 如 下 : 
>> x = 0:0.1:1.5; 
>2 2 x.^2-1; 
>> I = 0.1*trapz(y) 


T= 
-0.3725 
又 如 
>>Y= [0 1 2 
3.4 5]; 


>> trapz(Y,1) 
ans - 

1.5000 2.5000 3.5000 
>> trapz(Y, 2) 
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ans = 


2. cumtrapz 累计 梯形 积分 

语句 格式 为 

z 一 cumtrapz(y) 

z = cumtrapz(x, y) 

z — cumtrapz(x, y, dim) 

如 果 y 是 矢量 ，z = cumtrapz(y) 也 是 一 个 矢量 . “的 第 na 个 元 素 是 y 的 前 
n 个 元 素 的 梯形 积分 . Alb, 它 的 作用 很 像 是 y 的 原 函 数 . 类 似 地 ,如果 y 是 矩 
KE, cumtrapz(y) 也 是 一 个 和 矩阵. 如 果 y 了 是 一 个 N 维 列 阵 ， 计 算 从 维 元 素数 不 是 
1 的 维 开 始 . 

用 cumtrapz(y) 计算 累计 梯形 积分 时 ， 步 长 默认 为 1， 如 果 步 长 不 是 1， 则 
要 将 z 乘 以 步 长 的 值 . 

用 cumtrapz(x, y) 计算 y 对 x 的 累计 梯形 积分 ，x 和 y 的 长 度 必 须 匹 配 . 

用 cumtrapz(x, y, dim) 对 dim 指定 的 y 的 维 进行 累计 梯形 积分 ，x 的 长 度 必 
须 是 size(y, dim) , 


下 面 的 例子 是 做 累积 积 


>> Y = [-1 5 2 
3 6 7 
-7 5 二 3 


>> cumtrapz(Y, 1) 
ans = 
0 0 0 

1.0000 5.5000 4.5000 

-1.0000 11.0000 6.5000 
>> cumtrapz(Y, 2) 
ans = 

0 2.0000 5.5000 

0 4.5000 11.0000 

O -1.0000 0 
矩形 积分 可 用 指令 sum 或 cumsum 来 实现 , 其 结果 类 似 于 trapz 或 cumtrapz , 

但 精度 更 低 ， 所 以 一 般 不 用 。 


3. quad, quad8 ”函数 积分 
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quad 和 quad8 都 可 以 对 用 M 文件 或 指令 inline 建立 的 函数 作 数 值 积 分 ， 二 
者 的 使 用 语句 格式 相同 ， 但 使 用 的 积分 计算 方法 不 同 ， quad 是 用 自 适应 辛 普 
生 法 ， 属 低 阶 方法 ， quad8 用 自 适 应 柯 特 法 ， 属 高 阶 方法 ， 精 度 较 高 。 

quad 的 语句 格式 为 

q = quad('fun', a, b) 

q — quad('fun', a, b, tol) 

q — quad('fun', a, b, tol, trace) 

q = quad('fun', a, b, tol, trace, pl, p2, --) 


各 项 符号 含义 为 

fun 积分 函数 ; 

a, b 积分 区 间 ; 

tol = [rel_ tol abs-tol] ”积分 的 相对 精度 和 绝对 精度 ， 默 认 值 为 0.0001 ; 

trace 取 0 表示 不 用 图 形 显示 积分 过 程 ， 非 0 表示 用 图 形 
显示 积分 过 程 ; 

pl, p2,，… 是 向 函数 传递 的 参数 ， 


为 了 使 用 默认 值 的 tol 或 trace ， 可 以 传递 一 个 空 矩 阵 [] . 当 q=Inf it, K 
示 积 分 出 现 奇异 值 . 将 上 面 的 指令 由 quad 改 成 quad8 ， 所 有 的 语句 也 成 立 . 2€ 
例如 下 : 
>> qx = inline(/x.^3 - a*x.^2 + x + 10'/x', ‘a’) 
qx = 
Inline function: 
qx(x,a) = x.^3 - a*x.^2 + x + 10 
>> quad8(qx, -2, 7, [ 1, [], 8) 
ans = 


-227 .2500 


4. dblquad ”数值 二 重 积 分 

语句 格式 为 : 

result = dblquad('fun', inmin, inmax, outmin, outmax) 

result = dblquad('fun', inmin, inmax, outmin, outmax, tol) 

result = dblquad('fun', inmin, inmax, outmin, outmax, tol, method) 
各 项 符号 的 含义 为 : 

fun(inner, outer) ”被 积分 的 函数 ，inner 是 内 变量 ， outer 是 外 变量 ; 
inmin, inmax 内 变量 的 积分 区 间 ; 

outmin, outmax ”外 变量 的 积分 区 间 ; 

tol 积分 精度 ; 
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method 积分 方法 ， 有 quad 或 quads 两 种 ， 默 认为 quad . 
下 面 是 一 个 二 元 函数 的 积 
>> £2 =inline(’y*sin(x) + x*cos(y)’, 'x', 'y’) 
f2 = 

Inline function: 

f2(x,y) = y*sin(x) + x*cos(y) 
>> dblquad(f2, pi, 2*pi, 0, pi) 
ans = 

-9.8698 


1.4.8 ETMA Te 2H 


MATLAB 解 常 微分 方程 组 的 能 力 很 强 而 且 很 方便 , 只 要 用 简单 的 指令 就 可 
以 解 常 微分 方程 ,针对 不 同类 型 的 常 微分 方程 MATLAB 有 不 同 的 指令 . 下 面 先 
看 一 个 简单 的 例子 。 匀 加 速 运动 的 微分 方程 是 
dz 
dt? 
其 中 a 一 4. MATLAB 要 求 先 将 方程 写成 一 阶 的 党 微分 方程 组 , 令 y0) = 2, v) = 
da/dt, 得 


=a 


将 它 写 成 如 下 形式 的 函数 文件 yjs.m 并 存盘 ， 
function ydot=yjs(t,y) 

ydot=[y(2) ; 

4 ]; 

在 函数 文件 中 要 求 两 个 等 号 左边 的 变量 名 相同 ,这 里 是 用 的 ydot ， 对 比 原 
方程 知 ，ydot(1) 就 是 dy(1)/dt ，ydot(2) 就 是 dy(2)/dt . 等 号 右边 的 名 称 是 存盘 
文件 的 名 称 ， 这 里 用 的 是 yjs ,第 一行 括号 中 的 t 是 时 间 变 量 ，y 则 是 在 一 阶 常 
微分 方程 组 中 定义 的 量 . 这 些 格式 不 能 随便 改变 . 在 指令 窗口 键入 

>> [T,Y] = ode23(‘yjs’, [0:0.1:10], [2,1]); 

>> size(T) 

101 il 
>> size(Y) 


ans — 
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101 2 

>> plot(T, Y(:,1), T, Y(:,2)) 
在 这 里 ， ode23 是 解 常 微分 方程 组 的 指令 , 在 调用 时 ， 要 说 明 函 数 文件 名 即 yjs, 
时 间 范 围 即 0: 0.1: 10 ,初始 位 移 与 初始 速度 即 2 和 1 . 输出 的 结果 是 时 间 变 
量 的 值 即 了、 位 移 YC, 1) 与 速度 Y(:, 2) 的 值 。 指 令 size 是 查看 和 YY 的 大 小 . 
最 后 用 指令 plot 画 曲 线 表 示 方 程 的 解 . 

以 上 求解 过 程 主要 分 为 三 步 ， 即 编写 函数 文件 (odefile), 选择 恰当 的 解 方程 
的 指令 , 指定 解 方程 的 要 求 并 按 规定 的 格式 调用 它们 解 方程 组 . 下 面 逐 条 介绍 . 


1. 编写 odefile 
首先 将 求解 的 常 微分 方程 组 编写 成 特殊 格式 的 函数 文件 ,在 MATLAB 中 
称 之 为 odefile . 注意 ，odefile 的 格式 不 同 于 一 般 的 函数 文件 , 不 可 随意 改变 , 其 
至 变量 的 顺序 和 位 置 都 不 能 任意 改变 . 编写 odefile 的 方法 可 查看 命令 odefile . 
高 阶 的 常 微分 方程 要 先 化 成 一 阶 的 常 微分 方程 组 再 求解 . 
通常 求解 的 方程 组 的 形式 为 dy/dt = F(t, y) ， 这 里 t+ 是 自 变 量 ，y 是 由 待 
求 的 上 的 函数 构成 的 矢量 。 所 以 最 简单 的 odefile 的 文件 格式 是 
function ydot = odefile(t,y) 
ydot = [在 括号 内 插入 t 和 / Ry 的 函数 ] ; 
在 这 里 ，t 是 标量 ，y ÆRE, ydot 是 列 天 量 dy/dt . 上 面 的 例子 中 使 用 的 
odefile 就 是 这 种 形式 . 这 种 形式 的 odefile 十 分 简单 ， 使 用 也 最 多 , 但 它 的 功能 
ARR. 为 了 在 解 常 微分 方程 的 过 程 中 完成 一 些 特殊 的 任务 ， MATLAB 5.3 准备 
了 一 个 odefile 的 模板 ， 键 入 
>> help odefile 
在 屏幕 上 会 显示 如 下 模板 : 
function varargout = odefile(t,y,flag,p1,p2) 
switch flag 
case ' ' % Return dy/dt = f(t,y). 
varargout{1} = f(t,y,p1,p2); 
case ‘init’ ^ Return default [tspan,yO,options]. 
[varargout{1:3}] = init(p1,p2); 
case 'jacobian' % Return Jacobian matrix df/dy. 
varargout{1} = jacobian(t,y,p1,p2); 
case 'jpattern' % Return sparsity pattern matrix S. 
varargout{1} = jpattern(t,y,p1,p2); 
case ‘mass’ % Return mass matrix. 


varargout{1} = mass(t,y,p1,p2); 
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case ‘events’ ^4 Return [value,isterminal,direction]. 
[varargout{1:3}] = events(t,y,pi,p2); 

otherwise 
error(['Unknown flag " flag ".']); 


end 


function dydt = f(t,y,pi,p2) 
dydt = < Insert a function of t and/or y, pi, and p2 here. > 


function [tspan,yO,options] = init(p1,p2) 
tspan = < Insert tspan here. >; 
yO = < Insert yO here. >; 


options = < Insert options = odeset(...) or [^] here. >; 


function dfdy = jacobian(t,y,p1,p2) 


dfdy = < Insert Jacobian matrix here. >; 


function S = jpattern(t,y,p1,p2) 


S = < Insert Jacobian matrix sparsity pattern here. >; 


function M = mass(t,y,p1,p2) 


M = < Insert mass matrix here. >; 
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function [value,isterminal,direction] = events(t,y,pi,p2) 

value = < Insert event function vector here. > 

isterminal = < Insert logical ISTERMINAL vector here.>; 

direction = < Insert DIRECTION vector here.>; 

在 模板 中 ， varargout MATLAB 内 部 定义 的 关于 输出 变量 的 指令 ,不 能 
换 用 其 它 名 称 。 MATLAB 内 部 定义 的 关于 输入 变量 的 指令 是 nargin ， 这 个 指令 
在 例 1 的 程序 中 会 用 到 。 t, y 是 方程 中 的 变量 和 函数 ， 在 模板 中 的 位 置 与 顺序 
不 能 改变 或 取消 。 pl, p2, … 则 是 传递 给 方程 组 的 附加 参量 . 模板 中 用 switch 分 
支 语句 来 控制 不 同 的 运行 模板 的 方式 ， 每 种 方式 的 执行 内 容 都 是 用 不 同 的 子 函 
数 来 规定 ， 子 函数 中 < > 里 的 内 容 要 由 用 户 编写 。 各 种 方式 之 间 的 切换 是 用 变 
量 flag 来 执行 . 变量 flag 是 调用 模板 时 输入 的 由 小 写字 母 组 成 的 字符 串 ， 其 位 
置 不 能 改变 ，flag 的 可 选项 包括 : 


FLAGS 返回 值 ; 

' ! (empty) 函数 F(t, y); 

‘init! 默认 的 初始 条 件 和 优化 选项 ， 如 TSPAN, YO 和 OPTIONS ; 
‘Jacobian! 返回 Jacobian XB Fe J(t, y) = dF/dy ; 

'jpattern' 返回 稀世 Jacobian 4E B; 

‘mass! 返回 解 方程 组 May'=F (t, y) 的 质量 矩阵 M, M(t) Be M(t, y) ; 
‘events’ 返回 过 零点 位 置 的 事件 的 信息 . 


并 非 每 一 个 odefile 都 要 包括 模板 中 的 全 部 内 容 ， 如 jacobian' 只 用 于 给 解析 
的 雅 可 比 行列 式 赋值 , 而 "jpattern' 则 是 产生 数值 化 的 雅 可 比 行列 式 .在 MATLAB 
中 有 orbitode, rigidode, vdpode 等 一 些 odefile 的 实例 ， 可 以 键入 

<< type “文件 名 > 
来 查看 它们 . 在 本 节 随 后 的 例子 中 ， 也 有 部 分 使 用 odefile 模板 的 内 容 ， 读 者 可 
以 参看 . 灵活 地 使 用 横 板 会 在 解 方程 的 过 程 中 带 来 许多 方便 . 

在 模板 中 的 选项 mass' 是 用 于 求解 M(t, y)*y = F(t, y) 类 型 的 问题 ， 其 中 
'M', 'M(t)' 和 ‘M(t, y) 4r 3| xe zn hi REE, 5j t 相关 的 矩阵 和 与 t,y THOSBUAR 
EE. 默认 值 是 mone' . 指令 ode23 可 以 解 M 是 非 奇 异 和 矩阵 的 问题 ，odel15s, ode23t 
可 以 解 M 是 奇异 矩阵 的 问题 . TE MATLAB 中 ，femlode, fem2ode, batonode 是 几 
个 这 类 问题 的 实例 , 读者 可 以 用 type 查看 它们 或 用 0de23, odel5s, ode23t 去 求解 
它们 ， 并 对 比 一 下 结果 . 

在 MATLAB6.0 中 , 提供 了 一 些 新 方法 如 函数 句柄 等 来 完成 这 些 任务 . 考虑 
到 这 些 新 方法 对 初学 者 可 能 更 抽象 一 些 , 而 且 MATLAB6.0 也 兼容 了 MATLAB5.3 
的 这 些 功能 ， 所 以 本 书 仍 以 模板 形式 来 编程 . 在 MATLAB6.0 中 查看 模板 odefile 
的 方法 是 在 指令 窗口 中 键入 


14 党 用 的 计算 指令 73 


>> more on, odefile, more off 
待 有 关内 容 显 示 在 屏幕 上 之 后 , 不 断 按 Enter 键 ， 就 会 在 屏幕 逐 页 显示 odefile 的 
ANA. 


2. 确定 odeset 中 的 选项 

为 了 能 够 解 出 方程 ， 要 用 指令 odeset 确定 求解 的 条 件 和 要 求 。 在 MATLAB 
中 ,求解 方程 组 的 指令 都 有 默认 的 求解 的 条 件 和 要 求 ， 通 常 以 结构 数组 “优化 
选项 ” (options structure) 表示 ， 但 可 以 用 odeset 修改 它 或 重新 建立 ， 也 可 以 用 
odeget 去 获取 已 有 的 “优化 选项 ” 的 信息 . 指令 odeset 和 odeget 用 法 介绍 如 下 : 

(1) odeset ”建立 和 修改 “优化 选项 ” 


语句 格式 如 下 : 
options = odeset('namel’, valuel, ‘name2’', value2, … ) 
options = odeset(oldopts, 'namel', valuel, …) 


options = odeset (oldopts, newopts) 


odeset 

各 项 符号 的 含义 为 

options 结构 数组 “优化 选项 ”的 名 称 ; 
'namel'vvaluel, 'name?2',value2 选项 中 的 参数 12 及 其 取 值 ; 
oldopts,newopts 旧 的 优化 选项 ， 新 的 优化 选项 ; 
optimfunction 使 用 优化 选项 的 函数 . 


第 一 种 格式 是 指定 各 个 参数 的 取 值 , 对 不 指定 取 值 的 参数 , 取 默 认 值 . 在 不 
引起 混淆 的 情况 下 ， 参 数 名 可 以 只 键入 前 面 的 几 个 字母 ， 也 不 必 区 分 大 小 写 ， 
如 用 ‘abst! 表示 ‘AbsTol! . 但 数值 的 输入 必须 格式 正确 ,否则 仍然 采用 默认 值 . 

第 二 种 格式 使 用 了 原来 的 优化 选项 ， 但 对 其 中 的 参数 1 等 指定 了 新 值 . 

第 三 种 格式 合并 了 两 个 优化 选项 oldopts 和 newopts , 重复 部 分 取 newopts 
的 指定 值 . 

键入 odeset 可 在 屏幕 上 显示 如 下 全 部 可 设置 的 参数 及 其 默认 值 ( { } 表示 
默认 值 ): 


AbsTol: [ positive scalar or vector {le-6} ] 
BDF: [on | {off} ] 
Events: [ on | {off} ] 
InitialStep: [ positive scalar ] 
Jacobian: [ on | {off} ] 
JConstant: [ on | foff} ] 
JPattern: [ on | {off} ] 
Mass: [ {none} | M | M(t) | M(t,y) ] 
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MassSingular: [ yes | no | {maybe} ] 
MaxOrder: [ 1 |2 |3 | 4 | 15) ] 
MaxStep: [ positive scalar ] 

NormControl: [ on | {off} ] 

OutputFcn: [ string ] 

OutputSel: [ vector of integers ] 
Refine: [ positive integer ] 
RelTol: [ positive scalar {1e-3} ] 

Stats: [ on | {off} ] 
Vectorized: [ on | {off} ] 

键入 help odeset Hi 2 BS TCR VES, PF Ta AT LS RE DU H. 

RelTol 相对 误差 ， 默 认 值 为 le-3 . 

AbsTol 绝对 误差 ， 默 认 值 为 le-6 . 

OutputFcn 输出 方式 ， 默 认 值 为 'odeplot' ， 其 它 可 选项 有 : 
odeplot 按时 间 顺 序 画 出 全 部 变量 的 解 ; 
odephas2 ”二 维 相 空 间 中 两 个 变量 的 图 形 ; 
odephas3 三维 相 空 间 中 三 个 变量 的 图 形 ; 
odeprint ”打印 输出 。 

(2) odeget ”获取 优化 选项 中 参数 取 值 的 信息 

这 个 指令 有 两 种 语句 格式 : 


val = odeget(options, ‘name’) 


val = odeget(options, ‘name’, default) 

这 里 options 是 由 odeset 设 定 的 优化 选项 . 第 一 种 格式 从 优化 选项 中 提取 指 
定 的 参数 的 取 值 。 如 果 该 参数 没有 指定 值 ， 则 返回 空 和 矩阵 [] . 

第 二 种 格式 从 优化 选项 中 提取 指定 的 参数 的 取 值 。 如果 该 参数 没有 指定 
值 ， 则 返回 默认 值 . 例如 

val = odeget(opts, 'RelTol', 1e-4); 
当 RelTol 没有 指定 值 时 ， 得 到 val = le—4. 


3. 选择 和 调用 解 常 微分 方程 组 的 指令 

解 常 微分 方程 组 的 指令 有 好 几 种 ， 应 该 根据 方程 的 类 型 来 选用 . 常 微分 方 
程 分 “刚性 的 ”和 “ 非 刚性 的 ”>， 刚 性 的 是 指 其 Jacobian 矩阵 的 特征 值 相差 十 
A AR. 两 者 对 解法 中 步 长 选择 的 要 求 不 同 . 下 面 的 解法 中 ， 有 的 可 用 于 解 刚 
性 方程 ， 有 的 则 不 适用 。 如果 不 能 分 辨 是 否 是 刚性 方程 ， 先 试用 ode45 ， 再 用 
odel5s 。 解 常 微分 方程 组 的 指令 有 : 
ode45” 解 非 刚 性 微分 方程 ， 中 等 精度 ,使 用 Runge-Kutta 法 的 四 、 五 阶 算法 . 


14 党 用 的 计算 指令 75 


ode23 RSE MITE GLAD TT Te, TBE, [87H Runge-Kutta 法 的 二 、 三 阶 算法 。 
odell3 解 非 刚性 微分 方程 ， 变 精度 变 阶 次 Adams-Bashforth-Moulton PECE HYE., 
ode23t 解 中 等 的 刚性 微分 方程 ， 使 用 自由 内 播 法 的 梯形 法 则 。 
odel5s 解 刚性 微分 方程 ， 使 用 可 变 阶 次 的 数值 微分 (NDFs) 算法 . 
ode23s 解 刚性 微分 方程 ， 低 阶 方法 ， 使 用 修正 的 Rosenbrock X. 
ode23tb 解 刚 性 微分 方程 ， 低 阶 方法 ， 使 用 TR-BDF2 方法 ， 即 Runger-Kutta 公 
式 的 第 一 级 采用 梯形 法 则 ， 第 二 级 采用 Gear i£. 

指令 的 语句 格式 为 (用 ode23 为 例 ， 其 余 指 令 用 法 相似 ) : 

[T, Y] = ode23('F', tspan, y0) 

[T, Y] = ode23('F', tspan, y0, options) 

[T, Y] = ode23('F', tspan, y0, options, pl, p2, =) 

[T, Y, TE, YE, IE] = ode23('F', tspan, y0, options) 


其 含义 为 

F 求解 的 常 微分 方程 的 文件 名 ,方程 的 形式 为 y = F(t, y). 
tspan 单调 递增 ( 减 ) 的 积分 区 间 [tO tfinal] 或 [t0, t1, =,  tfinal] 。 
y0 初始 条 件 矢量 . 


options 用 odeset 建立 的 优化 选项 ， 如 用 默认 值 则 不 必 输 入。 
pl, p2, … 传递 给 下 的 参数 ， 这 时 用 [] 表 示 默 认 的 优化 选项 . 
T,Y 了 工 是 输出 的 时 间 列 矢量 、 和 矩阵 Y 每 个 列 矢 量 是 解 的 一 个 分 量 . 
TE, YE, IE ^4 y 的 某 个 分 量 为 零 时 的 t 和 yy 的 值 以 及 它们 的 序号 . 使 用 此 
项 时 要 将 优化 选项 中 ‘events’ 设 为 "on' ， 参 见 本 节 的 例 2 . 
例 1 求解 洛 仓 效 方 程 .这 是 混沌 理论 中 一 个 著名 的 方程 ,是 一 个 三 变量 
的 耦合 的 一 阶 常 微分 方程 组 . 


Ce 2 
de 37x 

dy 

-= 1 
Oy + 10z 
2 zy + 35y — 
p 一 2 y-z 


在 这 个 例子 中 函数 文件 是 lorfun.m ， 解 方程 的 程序 文件 是 lor.m ， 都 列 出 在 此 段 
落后 面 。 这 是 两 个 不 同 的 文件 ， 需 要 分 开 输 入 ， 初 学 者 往往 会 把 它 误 认为 是 一 
个 文件 而 产生 错误 . 在 调用 ode23 时 , 除了 要 求 给 出 t 的 区 间 和 三 个 函数 的 初 值 
之 外 , 还 要 求 设 定 输出 三 维 空间 的 相 图 , 输出 方式 是 用 odeset 来 设置 的 . 此 外 ， 
对 坐标 轴 的 区 间 、 视 角 和 标题 也 作 了 规定 。 画 出 的 图 用 圆圈 标 出 了 每 个 数据 点 
的 位 置 ， 用 图 形 窗口 的 操作 可 以 把 圆圈 去 掉 ( 见 15.15), 就 得 到 图 1.12。 如 
有 果 采 用 默认 的 输出 设置 可 以 将 调用 ode23 的 语句 改 为 
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ode23(‘lorfun’, [0,20] , [0,0, eps]) 

如 果 要 输出 t,y 的 数据 ,可 以 将 调用 ode23 的 语句 改 为 
[t ,y]=ode23(‘lorfun’, [0,20] , [0,0,eps] 

读者 可 以 比较 一 下 这 几 种 不 同 的 输出 结 


Lorenz Attractor 


图 1.12 ”党 仑 兹 方程 的 解 


%%program lor.m 

axis([10 50 -50 50 -50 50]) 

view(3) 

hold on 

title('Lorenz Attractor’) 

options =odeset (‘OutputFcn’,’odephas3’) ; 

[t ,y]=ode23(‘lorfun’, [0,20], [0, 0, eps] ,options) ; 


%%odefile lorfun.m 
function ydot=lorfun(t,y) 
ydot-[-8/3xy (1) +y (2) *y (3) ; 

-10*y (2) +10*y (3) ; 

-y (2) *y (1) +35*y (2) -y (331; 
利用 odefile 模板 可 以 将 上 面 两 个 程序 合并 成 一 个 程序 lorl.m 如 下 : 
function varargout = lori(t,y,flag) 
if nargin == 0, 

flag = ‘demo’; 


end 
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switch flag 


case ' ' % Return dy/dt = f(t,y). 
varargout{1} = f(t,y); 

case ‘demo! % Run a demo. 
demo; 

otherwise 


error(['Unknown flag " flag ".]); 


end 


function dydt - f(t,y) 
A = [ -8/3 0 y (2) 


0 -10 10 
-y(2) 35 ds 
dydt = Axy; 


function demo 

axis([10 50 -50 50 -50 50]); 
view(3) 

hold on 

title('Lorenz Attractor’) 


options =odeset( ‘OQutputFcn’, 'odephas3' ) ; 

[t,y]=ode23( '1lori', [0,20], [0,0,eps], options); 

这 是 一 个 自身 递归 调用 的 程序 ， 涉及 到 分 支 语句 的 使 用 .其 运算 过 程 是 : 
键入 lorl ， 由 于 输入 变量 为 零 即 nargin YE, ARLE flag = 'demo' .在 switch 
语句 的 控制 下 ， 再 执行 子 函数 demo, 它 设 定 了 坐标 轴 的 取 值 范围 和 视角 ， 还 有 
解 微分 方程 的 优化 选项 . 最 后 调用 解 微分 方程 的 指令 ode23 。 调用 中 给 定 了 各 
种 必要 的 数据 ， 而 执行 ode23 又 要 重新 调用 程序 lorl, 此 时 t 、y 的 初 值 已 经 给 
定 ， 只 是 flag 的 值 为 空 ， 所 以 在 switch 语句 的 控制 下 ， 执 行 的 是 子 函 数 f， 即 输 
出 待 解 微分 方程 ,这 时 lorl 的 作用 已 经 相当 于 本 节 开 头 所 介绍 的 那 种 简单 的 函 
数 文件 . 这 个 过 程 不 断 循环 ， 直 到 方程 被 解 出 ， 最 后 按照 options 的 设 定 将 结果 
输出 。 

在 MATLAB6.0 中 ， 将 两 个 程序 合并 的 方法 更 简单 。 只 须 编写 如 下 形式 的 
程序 loren 即 可 : 

function loren.m 


axis([10 50 -50 50 -50 50]) 


view(3) 
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hold on 

title('Lorenz Attractor’) 

options -odeset('OutputFcn','odephas3') ; 

[t,y]=ode23(@l1fun, [0,20] , [0,0, eps] , options); 

function ydot-lfun(t,y) 

ydot-[-8/3xy (1) *y 22*y (32 ; 

-10*y (2) *10*y (3); 
-y (2) *y (1) +35*y (2) -y (331; 

在 这 个 程序 中 ,使 用 了 MATLAB6.0 提供 的 一 种 新 的 数据 类 型 一 函数 名 
柄 。 在 程序 中 使 用 ode23 解 常 微分 方程 时 ， 调 用 描述 微分 方程 的 函数 lfun 不 是 
用 函数 名 lfun ， 而 是 用 函数 句柄 Ofun. 同样， 本 书 第 二 章 的 程序 也 都 可 以 仿 
照 这 个 例子 改 成 用 函数 句柄 调用 而 不 用 函数 名 调用 ， 从 而 将 两 个 程序 合并 为 一 
个 程序 . 但 这 种 方法 只 能 在 MATLAB6.0 中 使 用 . 由 于 MATLAB5.3 仍 在 广泛 使 
用 ,为 了 方便 这 些 读者 使 用 ,我 们 还 是 保留 函数 名 调用 方式 而 将 程序 分 为 两 个 
FE. 

Bl 2 ”研究 有 空气 阻力 时 抛 体 运动 的 特征 . 比较 下 面 三 种 情况 下 的 抛 体 的 
轨道 没有 空气 阻力 ; 空气 阻力 与 速度 一 次 方 成 正比 ; 以 及 空气 阻力 与 速度 二 
次 方 成 正比 . 本 例 介绍 了 如 何 将 高 阶 的 微分 方程 写成 一 阶 微分 方程 组 和 如 何在 
解 微分 方程 的 指令 中 传递 参数 . 

以 地 面 为 参考 系 ， 以 抛 出 点 为 原点 O 建立 直角 坐标 系 OXY , OX 沿 水 平 
Fi], OY 竖 直 向 上 . 质点 受 重 力 和 空气 阻力 作用 , 而 空气 阻力 包括 三 种 情况 
质点 的 运动 微分 方程 可 统一 表示 为 


m = 一 mg — blv|?/?v 
空气 阻力 的 三 种 情况 分 别 对 应 方程 中 参数 值 为 
A- PAo, p= 10,0, 1] 
4 y(1) = z, y(2) = dz/dt, y(3) = y, y(4) = dy/dt, 将 方程 写成 一 阶 微分 方程 
组 的 形式 就 是 


m 
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再 用 指令 ode45 解 常 微 分 方程 . 主 程序 ddqxn.m 如 下 : 


m=1;b=[0,0.1,0.1];p=[0,0,1]; 入 设置 参数 
figure 
axis([0 9 0 4]) AAWE EE AE AR ih AN ve E 
hold on 
for i-1:3 %% 解 微分 方程 三 次 
[t ,y]=ode45 ('ddqxnfun', [0:0.001:2],[0,5,0,8],[ ],b(i),p(i),m); 
comet (y(:,1),y(:,3)) 4AE Hy a wy EE 
end 
函数 文件 ddqxnfun.m 如 下 : 
function ydot-ddqxnfun(t,y,flag,b,p,m) 
ydot-[y (2); 

-b/mxy (2) * (y (2) . *2+y (4) .^2)^ (p/2) ; 

y(4); 


-9.8-b/m*y (4) * (y (2) .^24y (4) .^2)^ (p/2)]; 
例 3 小 球 的 弹跳 运动 。 小 球 以 某 个 初速 度 从 地 面 跳 起 ,再 次 落地 弹 起 


后 速度 减 至 原来 的 90%， 计 算 它 经 过 10 次 弹跳 的 运动 轨迹 并 用 图 形 显示 ， 在 
MATLAB5.3 中 程序 如 下 : 
function varargout = ballode(t,y,flag) 


ABALLODE Equations of motion for a bouncing ball. 


^ 
^ 


BALLODE(T,Y) returns the derivatives vector for the equations of 
motion for a bouncing ball. This ODE file can be used to test the 


zero-crossing location capabilities of the ODE Suite solvers. 


BALLODE(T,Y,’events’) returns a zero-crossing vector VALUE evaluated 
at (T,Y) and two constant vectors ISTERMINAL and DIRECTION.By default, 
the solvers of the ODE Suite do not locate zero-crossings.However,if 
the ODE solver property Events is set to ‘on’ with ODESET, the solver 
calls the ODE file with the flag ‘events’. The ODE file returns the 
information that the solver uses to locate zero-crossings of the 
elements in the VALUE vector. The VALUE vector may be of any length. 
It is evaluated at the beginning and end of a step,and if any elements 
make transitions to, from, or through zero (with the directionality 
specified in DIRECTION), then the zero-crossing point is located.The 
ISTERMINAL vector consists of logical 1's and O's, enabling you to 
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^ Specify whether or not a zero-crossing of the corresponding VALUE 

^ element halts the integration. The DIRECTION vector enables you to 

^ Specify a desired directionality, positive (1), negative (-1), and 

^ don’t care (0) for each VALUE element. 

^ 

% BALLODE(T,Y,'init/) returns initial conditions (see RIGIDODE). 

^ 

^ BALLODE with no input arguments runs a demo of a bouncing ball.It is 
^ an example of repeated event location, where the initial conditions 

^ are changed after each terminal event. This demo computes ten 

^ bounces with calls to ODE45. The speed of the ball is attenuated by 
^ 0.9 after each bounce, and the simulation is stopped when the time 

^ for a bounce has decreased to a minimum length. Note that the event 
% function also locates the peak of each bounce. 

^ 

^ See also ODE45, ODESET, ODEFILE. 

^ Mark W. Reichelt and Lawrence F. Shampine, 1/3/95 

^ Copyright (c) 1984-98 by The MathWorks, Inc. 

^ $Revision: 1.10 $ $Date: 1997/11/21 23:25:02 $ 

if nargin -- 0 

flag - 'demo'; 

end 


switch flag 


case '' ^ Return dy/dt = f(t,y). 
varargout{1} = f(t,y); 

case ‘init’ ^ Return default [tspan,yO,options]. 
[varargout{1:3}] = init; 

case ‘events’ ^4 Return [value,isterminal,direction]. 


case ‘demo 


[varargout{1:3}] = events(t,y); 


l % Run a demo. 


demo; 


otherwise 


14 常用 的 计算 指令 


error(['Unknown flag "' flag "'.']); 


function dydt - f(t,y) 
dydt = [y(2); -9.8]; 


function [tspan,yO,options] = init 
tspan = [0; 10]; 
yO = [0; 20]; 


options = odeset(‘Events’,’on’) ; 


function [value,isterminal,direction] = events(t,y) 


% Locate the time when height passes through zero in a decreasing 


% direction and stop integration. Also locate both decreasing and 


% increasing zero-crossings of velocity, and don’t stop integration. 


value = y; ^ (height; velocity] 
isterminal = [1; 0]; 


direction - [-1; 0]; 


function demo 


tstart - 0; 
tfinal - 30; 
yO = [0; 20]; 


refine = 4; 
options = odeset(‘Events’,’on’,’QutputFcn’,'odeplot’,/QutputSel’,1,... 


‘Refine’ ,refine) ; 


clf reset % deletes any stop button 
set(gca,'xlim',[O 30],’ylim’,[0 25]); 
box on 


hold on; 
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tout = tstart; 


yout = y0.’; 
teout = [ ]; 
yeout = [ ]; 
ieout = [ ]; 
for i = 1:10 


% Solve until the first terminal event. 
[t,y,te,ye,ie] = ode23(‘ballode’, [tstart tfinal] ,y0,options) ; 
if ishold 
hold on 
end 
% Accumulate output. This could be passed out as output arguments. 
nt = length(t); 
tout = [tout; t(2:nt)]; 


yout = [yout; y(2:nt,:)]; 
teout = [teout; te]; % Events at tstart are never reported. 
yeout = [yeout; yel; 


ieout = [ieout; ie]; 


ud = get(gcf,'UserData’) ; 
if ud.stop 
break; 


end 


% Set the new initial conditions, with .9 attenuation. 
y0(1) = 0; 
y0(2) -.9xy (nt ,2); 


% A good guess of a valid first timestep is the length of the last 

% valid timestep, so use it for faster computation. ‘refine’ is 

% 4 by default. 

options = odeset (options ,'InitialStep’,t(nt)-t(nt-refine),... 
'MaxStep',t(nt)-t(1)); 


tstart - t(nt); 


end 
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这 是 一 个 在 MATLAB 5.3 内 部 的 演示 程序 ， 是 完全 按照 模板 的 格式 书写 的 
一 个 较 复杂 的 程序 ， 同 时 它 也 体现 了 一 般 的 程序 文件 的 一 些 基本 特征 。 从 这 个 
例子 中 可 以 更 多 地 了 解 模板 的 用 法 . 读者 可 以 用 这 种 方法 去 查看 MATLAB 的 
其 它 程序 . 

调用 程序 的 方法 是 ， 键 入 

>> ballode 
或 者 键入 

>> ballode(T,Y,'demo') 

前 一 种 格式 是 以 文件 中 的 默认 值 来 演示 程序 ， 后 一 种 格式 是 由 用 户 给 定 的 
解 方 程 的 时 间 范 围 和 初始 条 件 Y 来 演示 程序 ， 其 中 demo 则 是 该 文件 中 flag 
的 赋值 。 

原文 件 中 有 英文 说 明 , 为 了 便于 读者 理解 ,下面 加 以 简单 说 明 . 

程序 中 的 flag 有 五 种 选项 ， 比 例 1 增加 了 两 个 选项 ， 即 ‘init’ 和 ‘events’ , 
前 者 是 输出 解 方程 的 初始 条 件 ; 后 者 是 在 程序 中 用 options 将 'events' 选项 设 为 
'on' ， 用 它 来 控制 积分 中 断 的 时 刻 。 而 ‘events! 值 从 子 函 数 文件 events 中 输出 ， 
设置 的 办 法 是 : 在 文件 中 ， 当 isterminal 取 1 时 表示 中 断 积分 ， 取 0 则 不 中 断 积 
分 ， 而 direction 表示 变化 的 方向 ， 取 1 表示 判断 事件 的 变量 从 负 值 增加 到 零 ， 
Ht -1 则 从 正 值 减 小 到 零 ， 取 0 则 不 考虑 方向 。y 的 两 个 分 量 分 别 是 高 度 和 速 
度 ， 判 断 事 件 的 变量 是 高 度 ， 程 序 中 的 设置 是 当 高 度 减 小 到 零 时 ， 积 分 中 止 . 
然后 在 主 程序 中 重新 给 出 新 的 初始 条 件 ， 开 始 新 的 一 次 计算 . 

在 MATLAB6.0 中 , 由 于 使 用 了 函数 句柄 , 这 个 程序 已 经 简化 为 如 下 程序 : 
function ballode 


^ BALLODE Run a demo of a bouncing ball. 


^ This is an example of repeated event location, where the 

^ initial conditions are changed after each terminal event. This 

^ | demo computes ten bounces with calls to ODE23. The speed of the 
^ ball is attenuated by 0.9 after each bounce. The trajectory is 

^ plotted using the output function ODEPLOT. 


^ See also ODE23, ODE45, ODESET, ODEPLOT, @. 

^ Mark W. Reichelt and Lawrence F. Shampine, 1/3/95 
^ Copyright 1984-2001 The MathWorks, Inc. 

^ $ Revision: 1.16 $ $Date: 2001/04/15 12:02:54 $ 


tstart = 0; 
tfinal = 30; 
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yO = [0; 20]; 
refine = 4; 
options = odeset(‘Events’,@events,'QutputFcn'’,@odeplot,'OutputSel’,1,... 


‘Refine’ ,refine) ; 


figure; 

set(gca, 'xlim', [0 30], /'ylim', [0 25]); 
box on 

hold on; 

tout = tstart; 


yout = y0.'; 
teout = [ ]; 
yeout = [ ]; 


ieout = [ ]; 
1:10 


% Solve until the first terminal event. 


for i 


[t,y,te,ye,ie] = ode23(@f,[tstart tfinal],yO,options); 
if ~ishold 
hold on 
end 
% Accumulate output. This could be passed out as output arguments. 


nt = length(t); 


tout = [tout; t(2:nt)]; 

yout = [yout; y(2:nt,:)]; 

teout = [teout; te]; % Events at tstart are never reported. 
yeout = [yeout; yel; 

ieout = [ieout; ie]; 


ud = get(gcf, ‘UserData’) ; 
if ud.stop 
break; 


end 


^4 Set the new initial conditions, with .9 attenuation. 
yO(1) = 0; 
y0(2) = -.9*y(nt,2); 
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% A good guess of a valid first timestep is the length of the 

% last valid timestep, so use it for faster computation. 

% ‘refine’ is 4 bydefault. 

options = odeset(options,'InitialStep',t(nt)-t(nt-refine),... 
'MaxStep’,t(nt)-t(1)); 


tstart = t(nt); 


end 


plot(teout,yeout(:,1),'ro') 

xlabel (‘time’) ; 

ylabel (‘height’) ; 

title('Ball trajectory and the events’); 
hold off 

odeplot([ ],[ ],’done’); 


function dydt = f(t,y) 
dydt = [y(2); -9.8]; 


function [value,isterminal,direction] = events(t,y) 
% Locate the time when height passes through zero in a decreasing 


% direction and stop integration. 


value = y(1); ^ detect height = 0 
isterminal = 1; ^ stop the integration 
direction = -1; % negative direction 


从 这 个 演示 程序 的 变化 ， 读 者 可 以 体会 到 ， MATLAB 总 在 不 断 地 改进 自 
身 的 性 能 ， 它 的 确 是 一 个 优秀 的 计算 软件 。 


1.5” 作 图 和 动画 


无 论 在 科研 或 教学 上 ,计算 的 结果 都 希望 能 做 到 可 视 化 , 而 MATLAB 完善 
与 强大 的 作 图 功能 ， 正 好 满足 了 这 种 需求 . 

MATLAB 可 以 画 二 维 图 和 三 维 图 ; 可 以 在 二 维 图 上 用 颜色 表示 三 维 数据 ， 
也 可 以 在 三 维 图 上 用 切片 和 颜色 来 表示 四 维 图 形 。 可 以 画 三 维 表面 图 形 ， 也 可 
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以 画 三 维 的 立体 图 ， 还 可 以 用 矢量 数据 画 三 维 流 线 场 、 三 维 矢 量 场 、 三 维 表面 
的 法 线 等 等 。 可 以 用 数据 直接 作 图 ， 也 可 以 用 函数 画图 ， 有 一 些 用 字母 ez 开头 
的 作 图 指令 还 可 以 对 隐 函 数 和 参数 函数 作 图 。 MATLAB 可 以 用 不 同 的 方法 制 
作 动 画 , 还 可 以 制作 用 户 界 面 ,使 得 编 成 的 程序 更 为 方便 实用 ,对 一 些 特殊 的 
作 图 要 求 ， 如 对 数 图 、 复 数 图 、 极 坐标 图 、 矢 量 场 图 、 等 高 线 图 ， 在 图 形 上 加 上 
文字 注释 和 改变 图 形 的 视角 等 ， 它 都 有 直接 的 指令 。 利 用 图 形 窗 口 的 编辑 功能 
可 以 直接 对 图 形 进行 操作 ， 如 增加 标题 和 说 明 性 文字 、 改 变 视角 、 画 线条 和 箭 
头 、 将 图 形 放大 缩小 、 改 变 线 型 、 旋 转 三 维 图 形 等 等 ， 而 利用 图 形 属性 编辑 絮 
(Graphics Property Editor) 可 以 对 图 形 对 象 的 各 种 属性 如 颜色 、 位 置 等 进行 更 全 
面 的 设置 . 所 得 的 图 形 不 仅 可 以 用 MATLAB 自身 默认 的 图 形 文件 格式 存盘 或 
打印 和 输出， 更 可 以 用 多 达 十 数 种 图 形 文件 格式 如 eps, bmp, jpg, tif 等 输出 ,这 些 
都 是 科研 工作 者 投稿 常用 的 图 形 文件 格式 ， 而 为 了 实现 这 些 任务 用 户 只 要 在 图 
形 窗口 中 的 菜单 File 下 选择 Export ， 再 找到 相应 的 文件 格式 就 行 . 


1.5.1 二 维 图 形 


1. 创建 图 形 

最 基本 的 作 图 指令 是 plot ， 它 有 不 同 的 形式 ， 与 和 输入 的 量 有 关 。 对 于 矢量 
y, plot(y) 产生 一 个 折线 图 ， 纵 轴 为 y 的 元 素 ， 横 轴 为 y 的 元 素 指标 . 如果 给 
入 两 个 矢量 x, y, 则 plot(x, y) 产生 的 是 y 相 对 于 x 的 图 形 . 画 出 0 到 7 的 正弦 图 
形 的 命令 是 

>> t = 0 : pi/100 : 2*pi ; 

>> y = sin(t); 


>> plot(t, y) 

一 个 plot 命令 可 以 同时 画 多 个 图 形 。 MATLAB 会 自动 地 用 不 同 的 颜色 区 
分 每 组 数据 的 图 形 ， 颜 色 是 预先 设置 好 的 ， 但 可 以 改动 。 如 下 面 的 命令 用 不 同 
的 颜色 在 一 个 坐标 系 内 画 出 了 两 个 相对 于 的 函数 ， 

>> t = 0:0.1:2*pi; 

>> yl = sin(t-.25); y2 = sin(t-1); 

>> plot(t, y1, t, y2) 

指定 颜色 、 线 型 和 数据 点 标志 的 命令 格式 如 下 : 

plot(x,y,'color style marker’) 

例如 plot( x, y, 'y : -- ' ) Mi B Ae ARR, 在 每 个 数据 点 有 加 号 标志 . 如 
果 指 定 了 数据 点 标志 而 不 指定 线 型 ， 则 只 在 各 个 数据 点 画 出 标志 符号 。 颜 色 、 
线 型 和 数据 点 标志 的 可 选项 有 

颜色 : Hc, HÉED'm', By’, A'r, g'g, A'b, Ew, Bk’ 
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RA: KA, MAR, ART, AAR 
标志 : 点 "加 号 + 圆圈 0% BE, Lx, 四 方形 S, BIE dl 
五 角形 'p', 六 角形 W, 三 角形 CRT E S BREF "S BEAR <, sp?) 


2. 图 形 窗口 

每 次 作 图 ， 作 图 命令 都 会 自动 打开 一 个 图 形 和 窗口, 但 是 如 果 已 经 有 图 形 窗 
口 存 在 ， 作 图 命令 便 会 使 用 已 有 的 图 形 窗口 . 如果 键入 figure ,就 会 打开 一 个 新 
的 图 形 窗口 .每 个 图 形 窗口 的 标志 栏 都 会 有 一 个 编号 n ， 打 开 第 n 个 图 形 窗口 
的 指令 是 

figure(n) 

在 已 有 图 形 上 继续 作 图 的 指令 是 

hold on 

取消 这 种 功能 的 指令 是 

hold off 


打开 的 图 形 窗口 如 图 1.13 所 示 


File Edit Tools Window Help 


j|BDaus|kA27|le2o 


图 1.13 BRIT A) A fE 

ERF, binek, H Tools 栏 的 Show Toolbar 可 以 显示 工具 栏 的 图 
Tn. 各 图 标的 含义 分 别 是 打开 、 关 闭 、 保存 和 打印 文件 , 编辑 图 形 ， 加 注 文 字 ， 
画 箭 头 和 画 直 线 ， 放 大 、 缩 小 和 旋转 图 形 。 

直接 点 击 图 形 中 的 曲线 ， 会 打开 一 个 对 话 框 。 可 以 对 曲线 的 各 种 属性 如 线 
宽 、 颜 色 、 标 志 等 加 以 编辑 。 File 菜单 下 的 选项 (Preferences) 可 以 改变 图 形 窗口 
的 各 种 功能 ， 如 数据 的 格式 、 字 体 、 图 形 存 储 的 格式 等 。 

下 面 的 程序 文件 st.m 先 画 一 个 电 侦 极 子 的 势能 分 布 图 ; 然后 再 全 加 同一 个 
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函数 的 等 高 线 图 . 用 图 形 窗口 的 各 种 切 能 可 以 加 注解 、 改 变 视角 等 .程序 画 出 
的 图 形 如 图 1.13 Bras. 
x=-0.3:0.018:0.3; y=-0.3:0.018:0.3; 
[X, Y]=meshgrid(x,y); 多 数据 网 格 
Z=1./sqrt ((X-0.2).72.4¥.72)-1./sqrt ((X+0.2).72+Y.72); "3 fe H žk 
mesh(x,y,Z) WL 86 Eh — RAB 
hold on 
contour(x,y,Z,[-8,-5,-3,-2,1,-0.5,0.5,1,2,3,5,8] ,'k^) %y 等 高 线 图 


3. 分 区 作 图 

要 在 一 个 窗口 画 几 个 图 ， 可 以 用 分 区 作 图 指令 

subplot(m,n,p) 

它 将 窗口 分 成 m x n 个 区 ， 再 选择 第 p 个 区 作为 当前 活动 窗口 作 图 .图形 
按照 窗口 的 第 一 行 、 第 二 行 依次 编号 . 例如 下 面 的 程序 qtzt.m 画 出 了 图 1.14， 
它 在 一 个 窗口 中 画 出 了 两 个 旋转 体 的 表面 ， 所 用 到 的 指令 在 后 面 介 绍 三 维 图 形 
时 都 会 讲 到 


A 
7 
e ee ee iom all ee 2 


ZI 
AW 


图 1.14 分 区 作 图 的 例子 


^4 program qtzt.m 
subplot(1,2,1) 

sphere(40) 

axis equal 

subplot(1,2,2) 
t=0:0.1*pi:2*pi; 
[X,Y,Z]=cylinder (4*cos(t)); 
mesh(X,Y,Z) 
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axis square 


4. 复数 作 图 

用 复数 作 图 ， 一般 是 将 虚 部 丢弃 .如果 对 单个 复数 作 图 ， 则 作 图 指令 用 实 
部 对 虚 部 作 图 . 因此 plot(Z) 是 表示 plot(real(Z), imag(Z)) ， 例 如 

>> t = 0: pi/10 : 2*pi; 

>> plot(exp(ixt), '- 0’) 
画 出 了 一 个 20 条 边 的 多 边 形 ， 每 个 顶点 有 一 个 小 圆圈 . 

对 于 以 复数 为 变量 作 复 函数 图 形 有 专门 的 命令 ， 如 绘制 复 变量 函数 图 形 的 
命令 cplxmap ， 绘 制 复数 第 n 个 根 的 黎 曼 表 面 图 的 命令 cplxroot . 


5. 用 函数 画 二 维 曲 线 

利用 函数 直接 绘制 二 维 曲线 的 命令 是 fplot , 它 绘图 的 数据 点 是 自 适 应 产生 
B3, 即 在 函数 变化 小 的 地 方 取 较 少 的 点 , 在 函数 变化 剧烈 的 地 方 取 较 多 的 点 . 如 

>> fplot('sin(1./x)', [0.01 0.1], 1e-3) 
直接 画 出 了 在 [0.01 0.1] X TR] PI BR t sin(1/2) B Hi, Hine 107 。 实际 图 形 
如 图 1.15 所 示 . 


-1.0 一 " " n " 
0.00 0.02 0.03 0.04 0.05 0.06 0.07 0.08 0.09 0.1 


图 1.15 自 适 应 法 绘制 的 图 形 


图 形 的 左边 相当 密集 ， 为 了 放大 图 形 ， 可 以 用 图 形 窗口 里 菜单 Tools 下 的 
指令 zoom in ， 或 者 直接 点 击 图 标 栏 中 表示 放大 的 图 标 ， 然 后 再 用 鼠标 指 到 想 
查看 的 地 方 ， 按 下 堪 键 ， 在 屏幕 上 画 出 一 个 矩形 框 ， 再 松 开 左 键 ， 便 可 将 框 内 
图 形 放大 . 由 于 是 自 适 应 作 图 ， 所 以 仍 能 看 到 形状 比较 正确 的 曲线 . 如 想 恢 复 
原 图 大 小 ， 可 选择 指令 zoom out 或 点 击 相应 的 图 标 以 缩小 图 形 。 

还 有 一 些 指令 和 fplot 用 法 相似 ,也 可 以 用 函数 直接 画 二 维 或 三 维 图 ， 如 
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ezplot, ezplot3 , ezmesh ， ezpolar 等 等 ,它们 不 仅 具 有 与 fplot 相似 的 功能 ， 还 
可 以 对 隐 函 数 作 图 . 这 些 指 令 都 收录 在 附录 A20.7 中 . 


6. 二 维特 殊 图 形 


MATLAB 有 许多 画 特 殊 图 形 的 专门 指令 ( 见 附录 A20.7 )， 点 击 Help 菜单 
下 的 Examples and Demos 菜单 ,在 对 话 框 中 选择 Visualization ， 再 在 右边 的 对 话 


框 中 选择 2-D Plots 就 可 以 演示 各 种 二 维 作 图 指令 . 如 果 选 择 其 它 选 项 ， 则 可 以 
演示 其 它 作 图 指令 . 下 面 列举 了 一 些 画 二 维 图 的 指令 : 


par 直方 图 loglog UT BAA ER ER 2 
compass ”原点 出 发 的 复数 矢量 图 pcolor 4E E £8, Al 


contour 在 x-y 面 上 的 等 高 线 图 polar 极 坐 标 图 


errobar ”误差 棒 图 
ezplot 符号 函数 二 维 曲线 


quiver 矢量 场 图 
rose 统计 频数 扇 块 图 


feather if x 轴 分 布 的 复数 矢量 图 semilogx x 轴 对 数 坐 标 曲 线 


fplot 数值 函数 二 维 曲线 
fill 平面 多 边 形 填 色 
hist 统计 频数 直方 图 


T. 坐标 轴 榨 制 


semilogy — y 轴 对 数 坐 标 曲线 
stem K E FF 图 
stairs 阶梯 图 


指令 axis 有 许多 控制 坐标 轴 的 选项 ， 用 以 确定 伸缩 比率 、 方 向 及 图 形 外 观 
比例 . 一 般 地 ，MATLAB 会 自动 地 寻找 数据 的 最 大 值 和 最 小 值 ， 选 择 合适 的 作 
图 范围 和 坐标 标 度 。 指 令 axis 可 以 不 受 默认 设置 的 限制 。 如 


axis([xmin xmax ymin ymax]) 
axis square 

axis equal 

axis auto 

axis on 

axis off 

grid off 

grid on 

xlabel, ylabel, zlabel 

title 


text 


x 轴 和 了 y 轴 的 取 值 范围 ; 
正方 形 的 x 轴 和 y 轴 ; 

在 xy 轴 上 画 出 等 长 的 刻度 线 ; 
把 坐标 轴 的 伸缩 率 设 置 为 自动 模式 ; 
打开 坐标 轴 的 标签 和 刻度 线 ; 
取消 坐标 轴 的 标签 和 刻度 线 ; 
取消 网 格 线 ; 

恢复 网 格 线 ; 

加 上 x 轴 ，y 轴 和 2z 轴 的 标注 ; 
在 图 的 上 端 增加 一 个 标题 ; 
将 文字 插入 图 中 ， 


注意 ， 在 图 中 插入 的 希腊 文字 母 和 数学 符号 是 用 LaTex 符号 产生 ， 也 可 以 


用 微软 拼音 输入 法 里 的 软 键盘 产生 . 
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如 在 图 1.14 中 就 使 用 了 指令 axis equal 和 axis squal ,读者 可 以 看 看 取消 两 
条 指令 以 后 的 运行 效果 . 

下 面 的 程序 zbzm 画 出 了 图 1.16 ， 图 中 对 坐标 轴 进 行 了 标注 ， 并 在 图 形 上 
加 了 文字 说 明 ， 其 中 \ leq 表示 小 于 ，\ pian, \it aR. AR, RAB 
标 轴 控制 和 标注 也 可 以 由 图 形 窗口 的 有 关 操 作 来 完成 . 

^4 program zbz.m 

t = -pi : pi/100 : pi; 

y = sin(t); 

plot(t, y) 

axis([-pi pi -1 1]) 

xlabel('-\pi \leq (Mit t) \leq \pi', ‘fontsize’, 20) 

ylabel('sin(t)', 'fontsize', 20) 

title('Graph of the sine function', 'fontsize', 15) 


text(-2.5, 1/2, '{\it Note the odd symmetry.)', 'fontsize', 20) 


idi Graph of the sine function 
E T T T 


Note the odd symmetry. 


sin(f) 


0 
-0.2 
—0.4 
—0.6 
—0.8 
—]1.0 1 

一 -2 -1 0 1 2 3 
NStsn 


El 116 加 了 文字 标注 的 图 形 
1.5.2 ”三 维 图 形 
三 维 图 形 分 三 维 曲线 、 三 维 曲面 和 立体 图 形 . 它们 的 作 图 指令 不 同 . 
1. 三 维 空间 曲线 
三 维 曲 线 的 作 图 指令 为 


plot3(x, y, z, s) 
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这 里 x, yz 是 同 维 数 的 矢量 或 矩阵 .每 组 x, y z 构成 一 个 点 的 坐标 ， 各 点 
依次 相 联 ， 形 成 一 条 曲线 。 如 果 是 矩阵 ， 则 它们 相应 的 列 构成 一 条 三 维 曲线 的 
数据 点 坐标 ， 所 以 用 矩阵 可 以 同时 画 多 条 空间 曲线 。s 是 线 型 、 颜 色 和 标志 的 

下 面 的 程序 kjqx.m 画 出 了 图 1.17 中 的 空间 曲线 和 四 面体 . 空间 曲线 是 用 参 
数 方程 画 的 。 四 面体 则 是 利用 plot3 将 空间 的 点 连接 起 来 而 形成 的 空间 的 几何 
A, 其 中 数据 x1, yl zl 代表 左面 竖 直 的 三 角形 , 数据 x2, y2, 22 代表 左面 竖 直 
的 三 角形 ， 而 数据 x3. y3, 23 代表 在 前 面 下 方 坐标 轴 上 的 横 线 . 画 好 以 后 用 指令 
view 选择 适当 的 视角 ， 并 且 在 两 个 表面 填 上 不 同 的 颜色 . 


1.0 


0.5 10 


图 1.17 空间 曲线 和 空间 四 面体 


%%program kjqx.m 

subplot (1, 2, 1) 

t=0: 0.01 : 15; 

x = sin(t); y= cos(t); z = t; 
plot3(x, y, 2) 

view(-60, 18) 


subplot(1,2,2) 


xi-[0.5, 0.5, 0, 0.5]; 
yi=[0.5, 0.5, 0, 0.5]; 
zi-[ 1, 0, 0, 1]; 
x2-[0.5, 0.5, 1, 0.5]; 
y2=[0.5, 0.5, 0, 0.5]; 
z2-[ 1, 0, 0, 1]; 
x3=[0, 1]; 

y3=[0, 0]; 


z3=[0, 0]; 
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plot3(x1,y1,z21, x2,y2,z2, x3,y3,z3) 

hold on 

£1113(x1, y1, z1, 'g) 

fill3(x2, y2, 22, 'r’) 

view(24, 30) 

MATLAB 填 色 的 指令 对 二 维 图 形 是 fil, 对 三 维 图 形 是 fHü3. 。 上面 用 RISO 
四 面体 竖 直 的 两 个 表面 分 别 填 上 了 红色 和 绿色 . 指令 patch 兼 有 这 两 者 的 功能 
而 且 功 能 更 多 . 上 述 最 后 两 条 语句 也 可 改 成 

patch(x1, yi, zi, 'g’) 

patch(x2, y2, z2, 'r’) 

更 复杂 的 图 形 也 是 这 样 画 , 只 是 数学 关系 的 表述 更 复杂 . 下 面 的 程序 qzb.m 
画 的 是 球 坐标 系 中 的 一 个 小 体 元 ， 结 果 如 图 1.18 Bras. 

^4 program qzb.m 

axis([O 1 O 1 0 1]) 

xlabel(/x); ylabel(/'y); zlabel('z) 

hold on 

plot3([O 1],[O 0],[0 01,'k', [O0 OE [ogi] BPO 01,'k',... 

[0 01, [0 0],[0 1],’k’) 
view(110,15) 


hh 画 半径 

r=[0,1]; a=pi/4; b=pi/4; 
[x1,y1,z1]=sph2cart([0,a],[0,b],r); 
[x2,y2,z2]=sph2cart([0,atpi*0.05],[0,b],r); 
[x3,y3,z3]-sph2cart([0,a] , [0,b+pix0.05] ,r); 
[x4,y4,z4]-sph2cart([0,a*pi*0.05], [0, brpi*0.05],r); 
plot3(x1,y1,z1,’r’,x2,y2,z2,'r', x3,y3,z3,’r',x4,y4,z4,'m :' ) 


^. 画 小 体 元 外 表面 

ri=ones(1,11); 

thetal=axones(1,11); 
phiil=b:0.005*pi:b+pix0.05; 
[x1,y1,z1]=sph2cart(thetal,phii,r1); 
theta2=(atpi*0.05)*ones(1,11); 
phi2=b:0.005*pi: b+pix*0.05; 
[x2,y2,z2]=sph2cart (theta2,phi2,r1); 
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theta3=a:0.005*pi:atpix0.05; 

phi3=b*ones(1,11); 

[x3,y3,z3]=sph2cart (theta3,phi3,r1); 
theta4=a:0.005*pi:atpix0.05; 
phi4-(b*pi*0.05)*ones(1,11); 
[x4,y4,z4]-sph2cart (theta4, phi4,r1); 
plot3(x1l,yi,z1,'b',x2,y2,z2,'b', x3,y3,z3,'b’,x4,y4,24,'b’) 


heh 画 小 体 元 内 表面 

r2=0.85*r1; 

[x5,y5,z5]=sph2cart (thetal,phi1,r2); 
[x6,y6,z6]=sph2cart (theta2, phi2,r2) ; 
[x7,y7,z7]=sph2cart (theta3, phi3,r2) ; 
[x8,y8,z8]=sph2cart (theta4, phi4,r2) ; 
plot3(x5,yb,z5,'b',x6,y6,z6,'c :', x7,y7,27,'b’,x8,y8,z8,'c :') 


x 


图 1.18 球 坐 标 系 中 的 小 体积 元 


2. 画 球 面 、 椭 球面 和 柱 面 

画 球面 、 椭 球面 和 柱 面 有 专门 的 指令 。 sphere(N) 是 画 一 个 半径 为 1， 有 NA 

条 经 线 的 球面 。 cylinder(R,N) 是 画 由 母线 R 旋转 产生 的 柱 面 ,在 柱 面 上 画 有 NN 

条 母线 . 图 1.14 就 运用 了 这 两 个 指令 。 ellipsoid(XC, YC, ZC, XR, YR, ZR, N) 是 
画 椭 球面 ， 描 述 该 椭 球 面 的 方程 是 

(x-XC)» (Y-YC)? (Z-ZC) _ 


十 -一 一 一 十 


1 
XR? YR ZR? 


也 可 以 用 这 些 指 令 生成 相应 的 网 格 数 据 ， 如 [X, Y, Z]=cylinder(R, N) , ， 有 了 这 些 
数据 网 格 就 可 以 用 下 面 介绍 的 三 维 作 图 指令 去 作 图 ， 图 1.14 就 分 别 使 用 了 这 两 
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种 不 同 的 方法 . 


3. 网 线 和 表面 图 

在 MATLAB 中 ， 曲 面 是 用 xy 平面 上 的 各 个 格 点 的 z 坐标 来 定义 ， 相 邻 点 
用 直线 连接 . 指令 mesh 和 surf 都 是 用 三 维 方式 显示 曲面 。 mesh 产生 网 线 状 的 
曲面 ， 只 有 定义 点 的 连 线 有 颜色 . suf 则 用 颜色 显示 连 线 及 其 之 间 的 面积 此 
外 ,也 可 以 用 meshe 和 meshz 来 绘制 网 线 图 ， 其 中 meshe 是 将 mesh 图 和 等 高 线 
图 绘制 在 一 起 ， 而 meshz 则 是 在 绘制 mesh 图 时 画 出 零 基准 平面 . 如 果 要 绘制 瀑 
布线 图 ， 可 用 指令 waterfall 。 在 demos 的 演示 中 有 许多 例子 。 

为 了 显示 两 变量 的 函数 z=f(x, y), 要 在 函数 域 上 产生 一 个 数据 网 格 X,Y, 然 
后 用 X,Y 来 计算 和 作 图 .指令 meshgrid 将 矢量 x, y 决定 的 函数 域 变换 为 数据 
网 格 X, Y 。X 的 每 一 列 都 是 矢量 x, Y 的 每 一 行 都 是 矢量 y, 读者 可 以 复习 前 面 
1.2 节 对 数据 网 格 的 说 明 。 Z 是 两 变量 函数 的 值 . 最 后 用 mesh(X, Y, Z) 作 图 . 
如 果 作 图 指令 是 mesh(Z), 则 代表 X,Y 坐标 的 是 Z 的 列 标 和 行 标 。 具 体 的 例子 可 
见 图 1.13 .读者 可 以 将 指令 mesh 改换 成 其 它 画 三 维 图 形 的 指令 ， 然 后 重新 运行 
程序 ， 比 较 它 们 所 得 的 结果 . 


4. 视角 

如 果 要 改变 观察 三 维 图 形 的 视角 ， 可 使 用 命令 

view(az, el) 
其 中 az 表示 方位 角 , 单位 是 度 , 取 值 为 -180 ~ 180 ,计算 起 点 是 负 y 轴 ，el 表 
示 俯 视角 ， 取 值 为 -90 ~ 90 ， 计 算 起 点 是 好 平面。 进行 三 维 观察 时 的 默认 值 
是 az=—37.5, el=30 ， 进 行 二 维 观察 时 的 默认 值 是 az=0, el=90 . 在 图 形 窗口 中 ， 
用 鼠标 在 工具 栏 中 选择 旋转 图 形 的 图 标 ， 再 将 鼠标 指向 图 形 ， 就 会 显示 当前 的 
视角 . 


5. 色彩 的 调制 、 泻 染 和 光照 的 控制 

图 形 的 色彩 可 以 用 指令 

colormap ( MAP ) 
来 设置 和 改变 ，MAP 是 色 图 函数 或 色 图 矩阵 .附录 A20.11 列 出 了 所 有 的 色 图 
函数 . 色 图 矩阵 是 3 列 多 行 的 矩阵 ， 它 的 每 一 行 代表 一 种 颜色 ， 每 一 行 中 的 三 
个 元 素 分 别 表示 这 种 颜色 中 红色 、 绿 色 和 蓝 色 的 强度 ， 强 度 值 变 化 范围 为 0.0 
到 1.0。 下 表 是 色 图 矩阵 中 行 矢 量 与 色彩 的 对 应 关系 . 

ooo 黑色 oy 品 红色 

[100] Aa [0.5 0 0] 暗 红色 

001 we [0.5 0.5 0.5] 灰色 
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[ 11] 白色 [1 0.62 0.40] 纯 铜 色 
[011] 青色 [0.49 1 0.48] 宝石 蓝 
010 绿色 [127/255 1 212/255] RZE 
[110] 黄色 


对 由 surf, mesh, pcolor, fill, fill3 所 创建 的 图 形 ， 可 用 指令 shading 进行 色彩 
Be. 演 染 的 方式 有 

shading flat 平坦 式 泻 染 ， 即 用 线段 两 端点 或 小 方块 面 的 

四 角 的 色 值 决定 线段 和 方块 面 的 颜色 ; 
shading interp jf th iE, BI 2R Be ak Ne ER TY CES s UA 
端点 值 进 行 插值 而 得 到 线性 变化 的 颜色 ， 

shading faceted 默认 方式 ， 是 平坦 式 泻 染 加 上 黑色 网 格 线 . 

控制 光照 效果 的 指令 是 

surfl(X,Y,Z,S,K) 

与 指令 surf 相 比 ， 它 有 两 个 控制 光照 效果 的 参数 S, K 。S 用 以 确定 光源 的 
位 置 ， 可 用 直角 坐标 S=[sx, sy, sz] 表示 ， 也 可 用 球 坐标 中 的 方位 角 和 俯视 角 S = 
[ az, el] 表示 ， 默 认 的 光源 方位 角 是 在 观察 点 逆 时 针 方 向 45 处 。 K 是 用 光 方 
式 ，K=[ 背 景 光 份额 ， 漫 射 光 份额 ， 定 向 光 份 额 ， 扩 散 系 数 ] 。 下面 的 程序 tsm 
在 四 个 图 中 使 用 了 色彩 调制 以 及 不 同 的 色彩 泻 染 和 光照 效果 , 使 用 图 形 窗口 的 
图 标 转动 图 形 ， 可 以 更 明显 地 看 出 它们 之 间 的 差别 . 

[X,Y] = meshgrid(-8:.5:8); 

R = sqrt(X.^2 + Y.*2) + eps; 

Z = sin(R)./R; 

colormap (pink) 

subplot (2,2,1) 

surfl(X,Y,Z) 

subplot(2,2,2) 

surf1(X,Y,Z,[40,60],[0.1,0.1,0.7,1]) 

subplot (2,2,3) 

surfl(X,Y,Z) 

shading flat 

subplot (2,2,4) 

surfl(X,Y,Z,[40,60],[0.1,0.1,0.7,1]) 


Shading interp 


6. 四 维 数据 的 表现 
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三 元 函数 会 产生 四 维 数据 ，MATLAB 表现 三 元 函数 的 办 法 是 对 三 维 物体 切 
片 ， 然 后 在 切面 上 用 颜色 表现 数据 . 颜色 与 数据 的 对 应 关系 则 由 色 轴 来 表示 。 
下 面 的 程序 ysm 画 出 了 图 119. 为 了 表现 函数 


EN 
v—zage?* 9 


的 值 ， 利 用 指令 slice 作 了 四 个 截面 , 分 别 是 z—5, z—15, y=15, z-10; 每 个 
截面 上 的 函数 值 用 颜色 来 表示 ， 颜 色 与 数值 的 对 应 关系 由 色 轴 来 表示 ， 色 轴 由 
指令 colorbar 来 画 出 , 图 中 画 了 垂直 和 水 平 两 条 色 轴 . 从 图 中 可 以 看 出 ,函数 值 
有 一 个 峰 和 一 个 谷 ， 实 际 上 ， 这 是 一 个 三 变量 的 高 斯 型 函数 与 变量 x 的 乘积 ， 
根据 切片 的 颜色 ， 读 者 可 以 很 容易 地 想象 出 函数 值 在 空间 的 分 布 。 


- ZA A 


N 
N 
Y 


图 1.19 用 切片 颜色 表示 四 维 数据 


^^ program ys.m 

[x,y,z] = meshgrid(-2:.2:2,-2:.2:2,-2:.2:2); 
v= x .* exp(-x.^2 - y.^2 - z.^2); 
slice(v,[5 15],15,10) 

axis([O 21 0 21 0 21]); 

hold on 

colorbar (‘horiz’) 


colorbar (‘vert’) 
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view([-25 65]) 
1.5.3 ”句柄 图 形 


假定 我 们 要 制作 一 幅 实 时 动画 来 表现 小 球 在 桌面 上 的 跳动 . 做 法 是 擦 除 旧 
的 小 球 图 像 ， 在 新 的 位 置 画 出 一 个 小 球 的 图 像 。 在 MATLAB 中 ,完成 这 个 任务 
就 运用 了 句柄 图 像 。 具体 来 说 ， 就 是 把 小 球 看 作 一 个 图 像 对 象 ， 首 先 要 获得 对 
小 球 图 像 的 控制 权 ， 也 就 是 获得 这 个 对 象 的 句柄 ， 然 后 不 断 改 变 这 个 对 象 的 位 
置 属性 就 能 达到 这 个 目的 。 在 这 个 操作 中 ,我们 操作 的 对 象 不 是 整个 图 形 ， 而 
只 是 图 形 中 的 一 部 分 。 由 此 可 见 ， 句柄 图 形 系统 是 一 种 面向 对 象 ( 按照 对 象 进 
行 操作 ) 的 图 形 系 统 。 


l. 句柄 图 形 的 结构 层次 

句柄 图 形 系 统 包 含 以 下 含义 : 一 幅 图 的 各 个 组 成 部 分 都 是 一 个 对 象 ， 每 一 
个 对 象 有 一 系列 句柄 来 标识 它 ， 

图 形 对 象 按 父 对 象 和 子 对 象 组 成 层次 结构 . 计算 机 屏幕 是 根 对 象 ， 并 且 是 
所 有 其 它 对 象 的 父 D$ RXNHRu MSIE LEuE comae d 
象 是 图 形 窗口 的 子 对 象 . 线条 、 文 本 、 表 面 和 图 像 等 对 象 是 坐标 轴 对 象 的 子 对 
Z. 这 种 层次 关系 如 图 1.20 所 示 。 一 个 父 对 象 可 以 包含 一 个 或 多 个 子 对 象 ， 如 
根 屏 幕 可 包含 一 个 或 多 个 图 形 窗口 . 


父 对 象 


图 形 窗口 FIR 


I I ] 
用 户 界 面 菜单 用 户 界 面 控 件 用 户 界面 上 下 文 菜单 
表面 图 像 补 片 


图 1.20 句柄 图 形 系 统 的 


" 


2. dy iP] BG at R 4) ds 
句柄 实际 上 就 是 分 配给 每 个 对 象 的 唯一 的 数字 标识 ， 它 是 在 创建 图 形 对 象 
时 自动 建立 的 .访问 图 形 对 象 句柄 的 指令 有 


gcf 获取 当前 图 形 窗口 的 句柄 

gca 获取 当前 坐标 轴 的 句柄 

gco 获取 当前 对 象 的 句柄 

gcbo 获取 当前 正在 调用 的 对 象 的 句柄 


gcbf 获取 包括 当前 正在 调用 的 对 象 的 图 形 的 句柄 
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findobj 查找 具有 某 一 属性 的 图 形 对 象 的 句柄 
copyobj 复制 图 形 对 象 
delete 删除 图 形 对 象 


3. 设置 图 形 对 象 属性 

线条 有 粗细 ， 字 符 的 字体 有 大 小 ,这些 都 叫做 图 形 对 象 的 属性 . 图 形 对 象 
的 属性 包括 属性 名 (字符 串 ) 和 相应 的 数值 ， 改 变 图 形 对 象 的 某 个 属性 的 值 就 
能 改变 图 形 对 象 . 

(1) get ”获取 图 形 对 象 的 属性 值 

语句 格式 为 

Property Value = get(h) 

Property Value = get(H, 'PropertyName’) 

第 一 种 格式 的 含义 为 获取 图 形 句 柄 为 h 的 图 像 属 性 ， 操 作 的 结果 是 返回 一 
个 结构 数组 ,结构 数组 的 各 个 域名 和 赋值 对 应 图 形 对 和 象 的 各 个 属性 和 属性 值 . 第 
二 种 格式 的 含义 为 获取 图 形 句 柄 为 HH 的 图 像 属性 名 为 PropertyName 的 属性 值 . 

(2) set 设置 图 形 对 象 的 属性 值 

语句 格式 为 

set(H, ' 属性 名 ',' 属性 值 ”) 

set(H, ' 属性 名 1, ' 属性 值 1', ' 属性 名 2', ' 属性 值 2，… ) 

第 一 种 格式 是 对 句柄 为 互 的 图 形 对 象 中 指定 属性 名 的 属性 值 加 以 设置 . 第 
二 种 格式 则 可 以 同时 设置 多 个 属性 值 . 


1.5.4 ”动画 


用 动画 表现 计算 结果 可 以 显得 生动 台 真 。MATLAB 有 多 种 动画 表现 方式 ， 
分 述 如 下 : 


1l. 8 Y Sub A 
AE AAS CS, "TUAE Se a ES AS ios E I OL, t 
令 为 
comet(x, y, p) KX p*length(y) Bj —2fE EHE, p 的 默认 值 为 0.1. 
comet3(x, y, z, p) $$ Ky p*length(y) WZS REL, p 的 默认 值 为 0.1. 


2. 转动 图 形 

在 图 形 窗 口中 ， 利 用 菜单 Tools 下 的 Rotate 3D 可 以 用 鼠标 对 图 形 作 三 维 转 
动 ， 在 程序 中 可 用 指令 rotate3d 来 完成 这 个 任务 。 如果 要 使 图 形 自 动 地 连续 转 
动 ， 所 用 的 指令 是 rotate 。 其 指令 格式 为 : 
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rotate(H, [theta phi], alpha) 
rotate(H, [x y z], alpha) 


rotate( = , origin) 
各 项 符号 的 含义 为 : 
H 图 形 对 象 的 句柄 ; 


theta, phi ”以 度 为 单位 的 球 坐 标 中 的 方位 角 和 极 角 ， 表 示 转 轴 的 方向 ; 
alpha 从 原来 位 置 绕 转轴 转动 的 角度 ， 正 值 是 按 右 手 螺旋 法 则 计算 ; 
X, y, Z 用 直角 坐标 (x, y, z) 表示 转轴 的 终点 ， 起 点 是 坐标 轴 原 点 ; 
origin 用 [x0, yO, z0] 作为 直角 坐标 的 原点 。 


3. 影片 动画 

制作 影片 动画 与 电影 制作 很 相似 ， 即 预先 将 一 幅 一 幅 的 图 形制 作 好 ， 放 在 
内 存 缓冲 区 内 ， 然 后 连续 地 播放 ， 播 放 的 速度 可 快 可 慢 ， 这 种 方法 需要 的 内 存 
RK. 它 有 三 个 步 又， 分 别 由 三 个 指令 moviein, getframe 和 movie 来 完成 . 

M=moviein(n) , 定义 一 个 n 列 的 矩阵 M，, 以 存储 n 帧 画面 , 每 列 对 应 一 帧 . 

M(:, j) = getframe , 这 步 是 依次 将 n 帧 画面 存 入 矩阵 M, 通常 用 for 循环 
来 完成 它 . 

movie(M, k, FPS), 这 步 是 将 n 帧 画面 演示 上 次 ， 每 秒 FPS W. k 默认 为 
一 次 ， FPS 默认 为 12 . 


4. 实时 动画 

在 实时 动画 的 制作 中 ， 对 没有 改变 的 背景 图 案 不 作 更 新 ， 只 更 新 运动 部 分 
的 图 案 ， 所 以 它 加 快 了 每 幅 图 的 生成 速度 ， 也 节省 了 内 存 。 计算 机 游戏 都 采用 
这 种 方法 . 

MATLAB 用 图 形 对 象 的 "EraseMode' 属性 来 实现 在 保持 背景 图 案 的 条 件 下 
擦 除 旧 对 象 ， 显 示 新 对 象 . 图 形 对 象 的 "EraseMode' 属性 有 四 种 : 


normal 重 绘 整 个 显示 区 ， 它 产生 的 图 形 准 确 但 速度 慢 ; 
none 不 做 任何 擦 除 ， 直 接 在 原 图 上 绘图 ; 
xor 擦 除 旧 对 象 的 点 并 绘制 新 对 象 的 点 ; 


background 把 旧 对 象 的 颜色 变 为 背景 色 . 

当 新 对 象 的 属性 修改 以 后 ， 应 该 用 指令 drawnow 刷新 屏幕 ， 使 新 对 象 显 
示 出 来 。 指令 drawnow 使 MATLAB 暂停 目前 的 任务 而 去 刷新 屏幕 ， 若 不 使 用 
drawnow, 则 要 等 到 任务 序列 执行 完毕 以 后 才 会 刷新 屏幕 . 

下 面 的 程序 是 行 波 的 演示 . 程序 wavel.m 是 用 影片 动画 制作 的 , 程序 wave2.m 
是 用 实时 动画 制作 的 . 在 第 二 个 程序 中 ，h=plot(xy) 是 获得 图 形 的 句柄 ， set 
语句 则 是 对 图 形 属性 重新 设置 . 
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YwavVvel.m 

t-0:pi/20:4*pi; 

x=0:0.1*pi:4*pi; 

m=moviein(40) 

for i-1:40 
y=sin(x-t(i)); 
plot(x,y); 
axis([0,12,-1,1]); 
m(:,i)=getframe; 

end 


movie(m,3,30) 


4wave2.m 
t-0:pi/20:4*pi; 
x=0:0.1*pi:4*pi; 
h=plot(x,y); 
axis([0,12,-1,1]); 
set (h,'EraseMode’ ,'xor’) 
for i-2:60 
y=sin(x-t(i)); 
set (h,'XData',x,'YData',y) 
drawnow; 


end 


5. 打印 和 输出 图 形 

可 以 用 图 形 窗口 指令 print 来 直接 打印 屏幕 上 的 图 像 ， 也 可 以 用 菜单 print 
先 设置 标准 的 打印 选项 后 再 打印 ; 还 可 以 将 图 形 存储 在 专门 的 文件 中 并 选用 不 
同 的 输出 格式 , 包括 eps, jpg, bmp 等 格式 , 做 法 是 依次 选取 菜单 File\Export 项 ， 
就 会 打开 对 话 框 ， 然 后 选取 所 要 的 格式 . 


1.6 工具 箱 


1.6.1 符号 运算 工具 箱 


MATLAB 的 符号 运算 功能 是 借助 于 加 拿 大 滑铁卢 大 学 研制 的 数学 软件 
MAPLE 的 核心 功能 开发 的 . 它 包括 两 个 工具 箱 : 基本 的 符号 运算 工具 箱 (Symbolic 
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Math Toolbox) 和 扩展 的 符号 运算 工具 箱 (Extended Symbolic Math Toolbox) , 

基本 的 符号 工具 箱 提 供 了 100 多 条 指令 来 使 用 MAPLE 的 线性 代数 工具 包 
的 功能 ， 本 书 附录 B 列 出 了 这 些 指令 . 这些 指令 是 根据 MATLAB 的 语法 和 风 
格 编写 的 ， 对 熟悉 MATLAB 的 人 来 说 ， 可 以 像 使 用 其 它 的 指令 一 样 方便 地 使 用 
它们 . 扩展 的 符号 工具 箱 大 大 地 增强 了 使 用 MAPLE 的 能 力 ， 你 可 以 进入 所 有 
的 MAPLE 工具 包 (图 形 工 具 包 除外 )， 使 用 MAPLE 的 程序 以 及 用 户 定 义 的 程 
FF. 扩展 的 符号 工具 箱 提供 的 是 对 MAPLE 函数 的 接口 , 然后 以 指定 的 格式 调用 
MAPLE 自身 的 指令 ， 运 用 这 种 方式 作 符号 计算 要 求 掌 握 MAPLE 的 基本 语言 . 

本 书 附录 B 的 《符号 工具 箱 指 令 》 中 第 12 项 是 符号 工具 箱 基 本 功能 的 演 
示 指 令 ， 读 者 可 以 通过 它们 对 符号 工具 箱 的 用 法 获得 一 个 初步 了 解 . 在 指令 窗 
口 键入 

>> help symbolic 
可 以 查看 符号 运算 工具 箱 的 全 部 指令 及 其 简单 说 明 . 

在 1.2.3 节 已 经 介绍 了 符号 变量 的 定义 , 在 L44 节 介 绍 了 符号 变量 方程 的 
解法 ,下 面 再 作 若 干 补充 . 


1. dsolve 解 微 分 方程 

用 dsolve 求 符号 变量 微分 方程 解 的 基本 语句 格式 为 

s = dsolve('fl', 'f2' …) 

其 中 fl, 2, … 代 表 要 求解 的 微分 方程 ， 初 始 条 件 和 自 变 量 ，s 表示 所 指定 
的 输出 形式 . 实际 用 法 见 以 下 的 例子 . 在 输入 微分 方程 时 , 分 别 用 Dy, D2y, D3y 
表示 一 阶 、 二 阶 和 三 阶 导数 . 

例 1 以 t 为 默认 变量 解 微分 方程 

>> dsolve(‘Dy=1+y~2’) 

tan(t+C1) 

如 果 带 有 初始 条 件 ， 则 是 

>> y = dsolve('Dy=1+y*2’,/y(0)=1') 

y = 

tan(t+1/4*pi) 

TER, y 在 MATLAB 工作 内 存 中 ， 而 t 不 在 ,用 指令 syms t AP DFE ttik 
到 工作 内 存 中 . 

例 2 解 有 初始 条 件 的 非 线性 微分 方程 

>> x = dsolve('(Dx)^2*x^2-1'/x(0)-0/) 


-sin(t) 


16 LHS 103 


sin(t) 
上 面 的 解 是 一 个 字符 串 ， 如 果 想 给 它 赋值 ， 可 以 采用 下 面 的 方法 。 即 先 将 
它 定义 成 符号 变量 的 表达 式 ， 然 后 对 符号 变量 赋值 . 
>> syms y 
>> y-x(1) 


y= 
sin(t) 
>> subs(y,1:4) 
ans = 
0.8415 0.9093 0.1411 -0.7568 
Bl 3 对 指定 的 自 变 量 求解 有 初始 条 件 的 二 阶 微分 方程 
>> y = dsolve('D2y=cos (2*x)-y’,’y(0)=1',/Dy (0) =0",'x’) 
y = 
(1/6*cos (3*x) -1/2*cos (x) )*cos (x) * (1/2xsin(x) 
+1/6*sin(3*x) )*sin(x)+4/3*cos (x) 
例 4 解 三 阶 常 微分 方程 
>> u = dsolve(D3u=u,u(0) = 1,Du(0) = —1',’ D2u(0) = pi',' x’) 
u= 
1/3*pi*exp(x)-1/3*(1*pi)*3^(1/2)*exp(-1/2*x) *sin(1/2*3^ (1/2) xx) 
*(1-1/3*pi)*exp(-1/2*x)*cos(1/2*3^ (1/2) *x) 
dsolve 也 能 解 多 变量 的 微分 方程 组 ,包括 有 初始 条 件 和 没有 初始 条 件 的 . 
例 5 解 一 阶 线性 微分 方程 组 
>> s = dsolve('Df 23*f-FAs*g''Dg— —4* f +3x*g') 
s= 
f: [1x1 sym] 
g: [1x1 sym] 
计算 的 结果 以 结构 数组 s 的 形式 返回 .要 想 确定 f 和 g 的 值 可 以 键入 
>> f = s.f 
f= 
exp (3*t) * (cos (4*t) *C1it+sin(4*t) *C2) 
>> g = s.g 
g= 
-exp(3*t)*(sin(4*t)*C1-cos(4*t)*C2) 
如 果 需 要 包括 初始 条 件 的 f 和 g 的 直接 形式 ,可 键入 
>> [f, g] = dsolve(Df 23«f + 4 x g,Dg = 4« f - 3«g'/ £(0) =0,g(0) = 1) 
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1/2*exp(7*t)-1/2*exp(-t) 
1/2*exp(-t)+1/2*exp(7*t) 


2. 调用 MAPLE 函数 

扩展 的 符号 工具 箱 可 以 直接 调用 MAPLE 自身 的 指令 . 语句 格式 为 

maple(MAPLE 指令 

查阅 这 些 指令 的 分 类 可 以 键入 命令 

>> mhelp index 

如 果 要 查阅 每 类 下 面 的 具体 内 容 ， 指 令 是 

>> mhelp index [ ] 

在 方 括号 内 填 入 该 类 的 名 称 。 如 果 要 查阅 某 个 指令 的 用 法 ,可 以 键入 

>> mhelp + 指令 名 称 。 

下 面 用 这 个 方法 来 画 二 阶 厄 米 多 项 式 的 图 形 。 

在 MAPLE 中 ,多 项 式 都 在 多 项 式 程序 包 中 . 在 这 里 查 得 的 结果 是 in- 
dex[package] ， 再 键入 

>> mhelp index[package] 
得 到 多 项 式 程序 包 的 名 称 是 orthopoly , 要 查看 调用 二 阶 厄 米 多 项 式 的 方法 ， 可 
键入 

>> mhelp orthopoly 
最 后 可 按照 MAPLE 指令 的 用 法 ， 键 入 

>> maple('with(orthopoly)/) 

[G, H, L, P, T, U] 
>> yy = maple('H(2, x)) 
Jy - 
4xx? —2 

这 里 的 yy 就 是 二 阶 龙 米 多 项 式 ， 如 果 要 画 它 的 图 形 ， 指 令 是 

>> ezplot(yy) 
如 果 要 求 x=15 时 yy 的 值 ， 做 法 是 

>> subs(yy,1:5) 

ans = 2 14 34 62 98 
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1.6.2 ” 偏 微分 方程 工具 箱 


偏 微分 方程 工具 箱 (PDE Toolbox) 是 求解 两 变量 偏 微分 方程 的 工具 ， 它 可 
以 用 指令 进行 操作 ， 也 可 以 在 图 形 用 户 界面 中 进行 操作 ， 本 节 简 单 介 绍 在 图 形 
用 户 界面 中 的 操作 。 

在 指令 窗 键入 pdetool 就 打开 了 它 的 指令 窗 如 图 1.21 Bros. 


4 PDE Toolbox - [Untitled] 
0 j h Solve Plot Window Help 
| Sa TIL x 01554: 0.2867 


File Edit Options Draw Boundary PDE Mes 
ole &»| &| > 160PDE A) A) =| 
Set formula: R1 


0 0.2 0.4 0.6 0.8 1 
Info: Select a new plot, or change mode to alter PDE, mesh, or boundaries. Exit 


图 1.21 偏 微分 方程 工具 箱 的 界面 


窗口 中 第 一 行 是 菜单 ， 第 二 行 是 工具 栏 ， 前 面 是 12 个 图 标 按钮 ， 它们 可 
以 完成 解 方程 的 基本 操作 . 接着 的 长 方形 框 有 解 方程 的 11 种 模式 ， 用 户 根 据 
问题 的 类 型 选择 ,通常 可 用 一 般 模式 (General Scalar) ， 而 静电 场 问题 则 是 选 
electrostatics 。 最 后 是 光标 的 坐标 , 供 作 图 时 选择 位 置 用 . 第 三 行 是 将 选 定 的 解 
方程 的 区 域 用 公式 表示 。 

窗口 的 中 间 区 域 是 用 作 图 方式 来 确定 方程 的 求解 区 域 ，x, y 轴 的 范围 用 菜 
单 Options 下 的 Axes Limits 对 话 杠 来 选择 . 

窗口 最 下 面 是 信息 栏 , 是 对 当前 操作 的 信息 提示 . 右 下 角 是 退出 按钮 (Exit) . 

解 方程 的 操作 分 为 以 下 几 步 ， 

(1) 画 方程 求解 的 区 域 

用 按钮 1~5 来 完成 。 画 矩形 用 按钮 1, 2, 按钮 1 是 从 矩形 的 一 个 角 开始 画 ， 
按钮 2 是 从 中 心 开 始 画 。 比 如， 点 击 按钮 1 后 , 将 鼠标 移 到 指定 区 域 ， 按 住 鼠 标 
左 键 ,移动 光标 ， 就 会 画 出 一 个 矩形 ， 如 果 按 住 右键 ,就 会 画 出 一 个 正方 形 . 
画 椭 圆 用 按钮 3, 4, 按钮 3 是 从 边缘 开始 画 ， 按钮 4 是 从 中 心 开 始 画 。 鼠标 右键 
mMMR, ARR. 画 多 边 形 用 按钮 5 .点击 按钮 5 ， 将 鼠标 移 到 指定 位 置 ， 按 
下 鼠标 左 键 ， 移 动 光 标 到 适当 的 位 置 ， 然 后 松 开 左 键 ， 就 会 画 出 多 边 形 的 一 条 


106 第 1 章 MATLAB 简介 


边 ， 再 按 下 左 键 ,又 开始 画 第 二 条 边 ， 直 至 把 多 边 形 全 部 画 好 . 

(2) 设 定 边界 条 件 

点 击 第 6 个 按钮 ， 进 入 边界 模式 ， 然 后 把 光标 移 到 选 定 的 边界 上 ， 双 击 鼠 
标 左 键 ， 就 打开 了 一 个 对 话 框 ， 在 对 话 框 中 就 可 以 设 定 边 界 条 件 . 如 果 是 对 所 
有 的 边界 设 定 相同 的 边界 条 件 ， 可 以 在 按 住 shift 键 的 同时 再 选取 边界 。 

(3) 选 定 方程 的 类 型 

点 击 第 7 个 按钮 ， 在 对 话 框 中 指定 求解 的 方程 类 型 。 可 解 的 方程 类 型 有 四 
fh. 椭圆 型 、 抛 物 型 、 双 曲 型 和 本 征 值 问题 . 

(4) 将 网 格 初始 化 和 精细 化 

点 击 第 8 个 按钮 ， 在 求解 区 域内 设置 三 角形 网 格 ， 这 是 用 有 限 元 方法 求解 
的 需要 ， 偏 微分 方程 工具 箱 用 的 就 是 有 限 元 方法 . 为 了 使 解 更 精确 ， 可 以 将 网 
格 细 化 ， 每 点 击 一 次 第 9 个 按钮 ， 网 格 就 会 细 化 一 遍 ， 可 根据 需要 点 击 一 、 二 
KK. 网 格 越 细 ， 解 题 的 时 间 越 长 。 

(5) 求解 方程 

点 击 第 10 个 按钮 是 求解 方程 。 默认 的 输出 是 颜色 表示 的 二 维 图 形 . 

(6) 将 结果 画图 

点 击 第 11 个 按钮 打开 的 对 话 框 可 以 改变 结果 的 输出 方式 , 其 中 的 Animation 
是 动画 输出 ， 只 对 含 时 的 方程 才能 生效 . 

(7) 放大 视图 

第 12 个 按钮 可 以 将 视图 放大 . 

上 面 图 标 按 钮 的 功能 在 菜单 中 都 有 对 应 的 命令 选项 ， 用 法 相同 。 

下 面 的 例子 是 求解 二 变量 的 热传导 方程 ， 具 体 的 定 解 问题 如 下 : 


Una + Uyy = 0; 


3 
u(0, y) = 0, u(a, y) = pH sin d 


3 
u(z,0) = 0, u(z, b) = usin =< COS P 


解 题 步骤 如 下 ， 其 中 ,a,b 的 值 是 解 题 时 任意 选 定 的 : 

(1) 从 Option 菜单 中 选择 Grid, 在 作 图 区 域 画 上 网 格 ， 以便 光标 定位 。 再 用 
Axes Limits 指定 x，y 轴 的 范围 为 [-0.11.1]。 从 原点 开始 画 一 个 边 长 为 1 的 正 
方形 . 

(2) 点 击 第 6 个 按钮 ， 进 入 边界 模式 。 从 荣 单 Boundary 中 选择 荣 单 Show 
Edge Labels ， 给 边界 标 上 序号 . 双击 边界 3 ， 在 对 话 框 中 选择 Dirichlet ， 将 边 
界 1H sin(3*pi.*x).*cos(pi.*x), 然后 关闭 对 话 框 。 用 同样 的 方法 设置 边界 2 的 
边界 条 件 为 sn(3*pi.*y) . 
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(3) 点 击 PDE 按钮 ， 在 对 话 框 中 选择 Elliptic ， 并 将 f 设 为 0， 使 泊 松 方程 
成 为 拉 普 拉 斯 方程 . 

(4) 点 击 第 8 个 按钮 后 再 点 击 第 9 个 按钮 , 得 到 如 图 1.21 所 示 的 精细 化 的 三 
角 网 格 。 

(5) 点 击 第 11 个 按钮 ， 选 择 Hight (3_D plot) 和 Plot in x_y grid ， 再 点 击 对 
话 框 中 Plot 按钮 即 得 到 结果 如 图 1.22 所 示 . 读者 还 可 以 将 方程 选 为 抛物 型 ， 并 
用 动画 来 演示 结果 ,会 更 为 生动 有 趣 . 


Height:u 


图 1.22 拉 普 拉 斯 方程 的 解 的 图 形 


在 偏 微分 方程 工具 箱 中 可 以 用 指令 来 完成 上 述 任 务 , 还 可 以 完成 更 复杂 的 
工作 ， 限 于 篇 幅 ， 不 再 介绍 。 


2.1 PRE Risa 


1. 实验 题目 
研究 受 空气 阻力 作用 的 抛 体 运动 . 设 抛 体质 量 为 m, 初速 度 为 vo ， 所 受 空 
气 阻力 的 大 小 部 与 速率 v 的 KERER, B R= bv”, 其 中 5 是 阻尼 系数 . 


2. RA A FBR 

(1) 画 出 三 种 情况 下 即 当 没有 空气 阻力 、 空 气 阻力 分 别 与 速度 一 次 方 、 二 次 
方 成 正比 时 ， 抛 体 的 运动 轨迹 图 及 水 平 速 度 随时 间 变 化 的 图 形 . 

(2) 求 出 三 种 情况 的 抛 体 轨 迹 的 最 高 点 ， 到 达 最 高 点 所 需 的 时 间 及 所 计算 
的 抛 体 轨迹 的 终点 的 水 平 速度 . 

(3) 学 习 使 用 解 常 微分 方程 的 指令 ode45, 尤其 注意 如 何 编写 一 个 单独 的 函 
数 文 件 并 向 函数 传递 参数 b,n 的 值 。 

(4) 学 习 分 区 作 图 的 方法 ， 掌 握 在 图 形 上 加 上 各 种 标注 文字 的 方法 。 


3. AR RR SY NT 
将 抛 体 视 为 质点 ， 根 据 牛 顿 运 动 定律 ， 抛 体 的 运动 微分 方程 可 统一 写 为 
dr 


mur = mg —bv"— = mg-bw" v (2.1.1) 
U 


以 抛 出 点 为 原点 建立 直角 坐标 系 Ory, Oz 沿 水 平方 向 ， Oy EENE. 于 是 由 
方程 (2.1.1) 可 得 两 个 投影 方程 


dz b ati 

一 了 = (vy) v 

dt? m? V 

db a (2.1.2) 


Eg (02 +08) Tu 

当 !=0 即 空气 阻力 为 零 时 , 抛 体 做 匀 变 速 运动 , 方程 组 (2.1.2) 可 以 用 代数 
方法 求解 . 

当 b 关 0 时 ,如果 n=1, 则 空气 阻力 与 速率 的 一 次 方 成 正比 ( 它 适 用 于 低速 
情况 即 v 29g 01m s 7) , 方程 组 (2.1.2) 可 以 求 出 解析 解 . 做 法 如 下 : 

将 方程 组 (2.1.2) 改写 为 
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dy de D, Bet 
d? dt 2 m” 
取 初 始 条 件 为 t = 0 时 ， Va = Ugo, Vy = Uyo; 将 上 式 分 离 变 量 积分 ， 得 
da 
P ME MU (2.1.4) 
S sme 9) -Bt mI 
Se = Py = (vo + ae 5 


取 初 始 条 件 为 41=0 时 ，z=4=0, 再 积分 一 次 ， 得 到 抛 体 的 运动 学 方程 为 


a fw, (2.1.5) 
ME 
消去 (2.1.5) SOAP AY PTE t, $8190 PS RS BE e 
= (+ PL) Lem (i - =) (2.1.6) 
dT Ur; bu p? mU, n 


由 (2.14), (2.1.5) RAM, “Yt o0 RP, v, 20, o, 2 — 52 , 它 的 物理 图 
BH: 


在 水 平方 向 抛 体 受 空气 阻力 的 水 平分 力作 用 ， 水 平 速度 不 断 减 小 而 趋 于 
零 ; 在 竖 直 方向 抛 体 受 重 力 和 空气 阻力 的 竖 直 分 力作 用 ， 上 升 阶段 竖 直 速度 逐 
浙 减 小 直至 为 零 ,下 降 阶 段 的 初期 重力 大 于 阻力 分 力 使 坚 直 速率 增加 。 速率 
增加 则 阻力 增 大 ， 直到 重力 与 阻力 大 小 相等 且 方 向 相反 ,速率 达到 一 极限 值 


v = n 并 以 vi SRR TE, EAE E T FR x = a : 
由 式 (2.1.4) MR (2.1.5) 知 ，y OI c 值 为 水 平 射程 ， ww = 型 = 0 时 的 


dt 
v,y 值 为 轨迹 最 高 点 位 置 ， 轨 迹 最 高 点 位 置 亦 可 由 (2.1.6) 式 ， 按 ETT 
"pn 2H, 求 方程 组 (2.1.2) 的 解析 解 非常 困难 . 下面 对 三 种 情况 分 别 计 
算数 值 解 ， 初 始 条 件 部 取 为 1=0 时 ，z=0, S3 yo S 5. 
Wy =2, w= a ys = V. u= A 将 方程 组 (2.1.2) 化 为 4 个 一 阶 微分 方程 


110 * 23k 模拟 实验 题目 


dt m (2.1.7) 


再 将 方程 组 (2.1.7) 写成 一 个 单独 的 函数 文件 ， Tb A p= n — 1 YE ER PREC 
件 中 的 参数 . 然后 编写 主 程序 文件 znxpyd.m . 编程 的 基本 思路 是 : 根据 三 种 情况 
设置 参数 b 和 nn 的 三 个 值 ， 用 for 循环 对 三 种 情况 重复 解 三 遍 常 微分 方程 ， 解 微 
分 方程 的 指令 是 ode45, 每 次 解 微 分 方程 都 用 题目 给 定 的 相同 的 初始 条 件 , 但 要 
将 不 同 的 5 和 mn 的 值 传递 给 函数 文件 . 解 微分 方程 的 时 间 范 围 取 为 0 到 10, 步 
KA 0.01. 在 图 形 窗 口 用 分 区 作 图 指令 画 了 两 幅 图 ， 一 幅 是 抛 体 的 运动 轨迹 ; 
男 一 幅 是 抛 体 的 水 平 速度 分 量 随时 间 变 化 ， 作 图 用 画 匣 星 轨迹 的 指令 comet . 
为 了 比较 , 设置 了 坐标 轴 的 范围 ,并 用 hold on 将 三 种 运动 轨迹 画 在 一 幅 图 内 . 
为 了 便于 区 分 三 条 轨迹 ， 在 图 中 加 注 了 文字 说 明 . 

图 2.1 即 为 程序 在 一 个 图 形 窗口 画 出 的 两 个 分 区 图 形 . 


dx /di 


图 2.1 抛 体 的 运动 轨迹 图 和 抛 体 水 平 速 度 随时 间 变 化 的 图 形 


轨迹 的 最 高 点 也 就 是 函数 文件 中 y(3) 的 最 大 值 ， 也 就 是 微分 方程 的 解 y 的 
第 三 个 分 量 y(:, 3) ， 可 用 指令 max 求 得 ， 每 次 求 出 的 最 高 点 的 值 存放 在 基 元 矩 


2.1 阻尼 斜 抛 运动 1H 


Ek H rp. 最 高 点 对 应 的 时 间 也 就 是 上 升 到 最 高 点 所 需 的 时 间 ， 求法 是 用 指令 
find 求 出 最 高 点 在 y(3) 的 位 置 即 编号 , 再 求 对 应 这 个 编号 的 t+ 值 , 每 次 求 出 的 上 
升 到 最 高 点 所 需 的 时 间 的 值 存放 在 基 元 矩阵 TT。 根据 定义 ，y(2) 是 水 平 速 度 ， 
所 以 要 求 的 轨迹 终点 的 水 平 速度 就 是 y(2) 的 最 后 一 个 元 素 y(end, 2). 最 后 在 屏 
幕 上 显示 的 结果 是 
Hz 
[1.2755] [1.1948] [0.9826] 


[0.5100] [0.4900] [0.4300] 
vx0 = 
[3] [0.4060]  [6.1888e-006] 

这 表明 , 三 种 情况 下 的 抛 体 的 最 大 高 度 分 别 是 1.2755, 1.1948, 0.9826; E FHE 
间 分 别 是 0.5100, 0.4900, 0.4300; 所 求 的 轨迹 终点 的 水 平 速 度 是 3, 0.4060, 6.1888 
x10~° .。 从 这 个 结果 和 图 形 都 可 以 看 出 , 在 给 定 的 时 间 范 围 内 , 第 一 种 情况 的 水 
平 速度 保持 不 变 ， 第 二 种 情况 的 水 平 速 度 虽然 在 不 断 地 下 降 ， 但 尚未 达到 极限 
值 零 ; 而 第 三 种 情况 的 水 平 速度 已 经 基本 达到 极限 值 零 . 如 果 适 当 增 加 解 微分 
方程 的 时 间 范 围 ， 也 能 使 第 二 种 情况 水 平 速 度 达 到 极限 值 ， 这 与 前 面 解析 分 析 
的 结果 一 致 . 注意 由 于 计算 的 时 间 范 围 较 大 ， 抛 体 上 升 的 高 度 较 小 ， 所 以 上 升 
段 的 曲线 不 明显 ， 如 果 缩 短 计算 的 时 间 ， 就 可 以 更 明显 地 表现 上 升 段 的 曲线 . 


4 XA 

(1) 将 解 微分 方程 的 时 间 范 围 缩短 为 0~ls ， 适 当 改变 坐标 轴 的 设 定 范围 
重新 画图 ， 结果 有 什么 不 同 ? 

(2) 画 出 抛 体 的 秋 直 速度 随时 间 变 化 的 图 形 , 以 观察 它 达到 极限 值 的 情况 ， 

(3) 将 作 图 指令 comet WH plot, 结果 有 什么 不 同 ? 


5. 参考 程序 

主 程序 的 文件 名 是 znxpyd.m 
m=1; hh) ERI E 
b-[0,0.2,0.2]; Vk BE 

p=[0,0,1]; 

px=[4.6;4.5;4.5]; %%px,py 是 说 明文 字 的 坐标 
py=(3.5;1.8;0.4]; 

strdd(1) = ' 无 阻尼 ' ; %y 三 组 说 明文 字 
strdd{2} = ' 阻 力 正 比 于 v 55 

strdd{3} = H J E k fvz; 
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figure 
fori-1: 3 XX 重复 解 三 遍 微 分 方程 


[t,y]=ode45(’znxpydfun’, [0:0.01:10],[0,3,0,5],[ ],b(i),p(i),m); 
H{i}=max(y(: ,3)) 4% 求 轨道 的 最 高 点 
T{i}=t (find(y(: ,3)==H{i})) %%X 到 最 高 点 的 所 需 时 间 


vx0{i}=y(end ,2) ‰y 最 终 水 平 速度 
subplot(2,1,1) Wh — 18 DK 图 

axis([0 6 -70 2]); AAWE EE Ab AR jh AN ve E 
hold on 

xlabel (‘x’) 以 标 注 x,y 办 

ylabel(’y’) 

comet (y(:,1),y(:,3)); Wu uii By FB WE 
subplot(2,1,2) VE — 1 DK A 

axis([O 10 0 4]) 

hold on 

xlabel ('t’) 

ylabel('dx/dt/) 

text (px(i) ,py(i) ,strdd{i}); 和 加 注 说 明文 字 


comet (t,y (:,2)) 
end 
函数 文件 是 一 个 独立 的 文件 ,文件 名 为 zuxpydfun.m , 
function ydot=znxpydfun(t,y,flag,b,p,m) 
ydot-[y (2) ; 
-b/m*y (2) *(y (2) .^243 (4) .^2)^ (p/2) ; 
y»; 
-9.8-b/m*y (4)* (y (2) .^24y (4) .^2)^ (p/251; 
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2.2 行星 轨道 


1. 实验 题目 

研究 质点 在 平方 反比 引力 场 中 的 运动 ， 例 如 行星 绕 太 阳 的 运动 . 设 质 量 为 
mo 的 质点 位 于 力 心 且 固 定 不 动 , 质量 为 mm 的 质点 在 mo 产生 的 引力 场 中 运动 ， 
当 m 与 mo 相距 7 时 ,质点 所 受 万 有 引力 为 = mgm » GAA E. 


2. 实验 目的 和 要 求 

(1) 当 质 点 总 能 量 大 于 、 等 于 和 小 于 零 时 , 画 出 质点 在 平方 反比 引力 场 中 的 
运动 轨迹 。 

(2) 当 质 点 总 能 量 小 于 零 且 保持 不 变 时 ,改变 角 动 量 的 大 小 , 画 出 质点 相应 
的 运动 轨迹 ， 

(3) 学 习 将 极 坐标 变换 成 直角 坐标 的 方法 以 及 利用 对 称 性 画 曲 线 的 方法 . 


3， 解 题 分 析 
以 力 心 为 原点 O， 建 立 极 坐标 系 ， 根据 牛顿 运动 定律 ， 可 得 质点 的 运动 微 


分 方程 为 
和 -om 
dt? dij vr (2.2.1) 
LR MA 
d? dt dt — 


Bn ny = Foye -6y = 95, 2.2.1) 式 化 为 4 个 一 阶 微分 方程 . 


yi (2.2.2) 


tt = gem 

为 了 简单 ， 设 质点 从 近日 点 开始 运动 ， 其 位 置 为 ro, RAH vo. ， 即 初始 条 
件 为 t=0 时 ，yi = ro, y2 = 0, y3 = 0, y4 = vo/ro . 

由 近日 点 的 位 置 ro 和 速率 vo 可 得 出 质点 的 总 能 量 


2 
f. GU. LET (2.2.3) 


TO 2 


轨道 的 类 型 由 能 量 的 符号 决定 : 
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(了) P E 0, Wie > 1, 轨道 为 双 曲 线 ; 
(2) 若 户 =0， 则 偏心 率 e=1， 轨道 为 抛物 线 ; 
(3) 车 户 <0， 则 偏心 率 e<1， 轨 道 为 椭圆. 
对 于 椭圆 轨道 ， 其 半 长 轴 w 由 总 能 基 决 定 


|. Gmom 
已 = 一 一 (2.2.4) 
椭圆 的 偏心 率 e FHL RA AE E MAJE Lip 
—— UN EUR 2.2.5 
e= AL Gans p 


图 2.2 画 出 了 总 能 基 不 同 的 质点 运动 轨迹 ,图 2.3 画 的 是 总 能 量 相 同 角 动量 


不 同 的 质点 运动 轨迹 . 


不 同 E 时 的 运动 曲线 


En 


Bal 
r2 
ho 
EE 


总 能 量 不 同 的 质点 运动 轨迹 图 


下 相同 二 不 同时 的 运动 曲线 


200} 
I». 
E ol 
mY 
-200 上 
—300r 
-600 -500 —400 -300 -200 -100 0 100 200 300 


图 2.3 总 能 量 相同 角 动 量 不 同 的 质点 运动 轨迹 图 
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不 失 一 般 性 ， 计 算 时 取 mm = 1,G = 1,mo = 5000. 计算 程序 分 为 两 段 ， 第 一 
Btt E = 一 18,0,22 时 质点 的 运动 轨迹 . 近日 点 的 位 置 取 为 ro = 100 ,利用 方 
FE (2.2.3) 求 出 质点 在 近日 点 的 速率 vo, 根据 这 些 初 始 条 件 可 解 出 方程 (2.2.2) 并 
AA. 由 于 质点 是 从 近日 点 开始 运动 , 所 以 只 计算 了 一 半 轨 迹 ， 而 另 一 半 轨 迹 
是 利用 对 称 性 用 指令 flipud 将 数据 颠倒 顺序 而 得 到 的 . 

BBR E E= -10 时 , 不 同 的 工 所 对 应 的 轨迹 ,。 由 于 能 基 不 变 , 所 有 的 
轨道 具有 相同 的 半 长 轴 a, 可 以 用 式 (2.2.4) 算出 = 250. 从 式 (2.2.5) 可 以 看 出 ， 
由 于 互 为 负 值 ， 角 动量 二 越 大 ,离心 率 e 越 小 . 当 ro=a 时 ，e=0, 碾 =1118 ， 
对 应 的 轨道 是 圆 ， 当 ro <a 时 ，0 <e<1, 轨道 是 椭圆 . 分 别 取 7o = 50，15， 
利用 (2.2.3) 式 求 出 相应 的 速率 为 
pee 


vo = 2E m 


代入 数值 后 得 vo = 13.4, 25.4, TH BS AN L= mrovo = 670, 381.5 。 利 用 这 
些 数据 解 微分 方程 并 画图 ， 可 以 验证 e 和 工 的 关系 . 


4， 思 考题 
Pa fe E = 10, 画 出 角 动 量 工 不 同 的 质点 的 运动 轨迹 ， 


5. BA AL 


主 程序 的 文件 名 是 xxgd.m . 

G=1;M=5000;r0=100; 

E=[-18,0,22]; 

vO=sqrt (2*E+2*G*M/r0) ; WX 不 同 的 所 对 应 的 速率 
figure 

axis([-400,200,-1000,1000]); 

xlabel('x/); 

ylabel(/y); 


title” 不 同 E 时 的 不 同 曲线 ) ; 
s{1}='E<0';s{2}='E=0'; s{3}='E>0'; 
hold on 

%% 标 出 太阳 位 置 
sun-line(0,0,'color','r','marker','.',' 
for i-1:3 

[t ,u] =ode45 ('xxgdfun' , [0:0.05:120] , [r0,0,0,v0(i)/r0],[1,G,™); 

[x,y]=pol2cart(u(:,3),u(:,1)); 和 将 极 坐 标 变换 为 直角 坐标 


markersize',20) ; 
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X=[flipud(x) ;x]; %% 用 对 称 性 求 出 另 一 半 的 轨道 的 数据 
Y-[-flipud(y);yl; 
text(-100-(i-1)*100,0-(i-1)*300,s[i]; 
comet (X,Y); 
plot(X,Y) 
end 
E=-10; 


a--GxM/2/E; mbit CAR E] E 2B d 

r0-[a,50,15]; 

vO-sqrt(2xE + 2*G*M./rO); AAEL 38 A RUD epp e iy BR XE 
figure 

axis([-600,300,-300,300]); 

xlabel ('x'); 

ylabel(‘y’); 

titleCE 相同 L 不 同时 的 不 同 曲线 Os 


hold on 


axis equal 
sun-line(0,0,'color','r','marker','.',' 
for i-1:3 
[t ,u] zode45 ('xxgdfun', [0:0.05:180],... 
[r0(1),0,0, v0 (i)/r0(1)], [ 1,G,M) ; 
[x,y]=pol2cart(u(:,3),u(:,1)); 
X=[flipud(x) ;x]; 
Y-[-flipud(y);yl; 
plot(X,Y) 


markersize’,20); 


end 
函数 文件 是 一 个 独立 的 文件 ,文件 名 为 xxgdfun.m , 
function ydot=xxgdfun(t,y,flag,G,M) 
ydot=[y (2) ; 
y (1) xy (4) ^2-G*M/ Cy (1)72); 
y(4); 
-2xy (2) *y(4)/y(1)1; 
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2.3 粒子 散射 


1， 实 验 题目 

研究 平方 反比 斥 力 场 中 粒子 的 运动 。 以 a 粒子 在 重 核 场 中 的 运动 为 例 ， 设 
重 核 位 于 力 心 且 固 定 不 动 ，a 粒子 的 质量 为 由 , 它 到 重 核 的 距离 为 "， 所 受到 
库仑 斥 力 为 已 = 疙 ， 上 为 由 库仑 定律 确定 的 常量 . 


2， 实 验 目 的 和 要 求 

(1) 画 出 a 粒子 在 不 同 初始 条 件 下 的 轨道 ， 通 过 改变 初始 条 件 来 研究 影响 
散射 角 的 因素 . 

(2) 学 习 根 据 解决 问题 的 需要 来 选择 坐标 系 ， 本 题 就 是 选择 直角 坐标 系 而 
不 是 极 坐标 系 。 


3. REA NT 
根据 牛顿 运动 定律 ，a 粒子 矢量 形式 的 运动 微分 方程 为 
dr kr 
u Ee (2.3.1) 
为 便于 求解 ， 建立 直角 坐标 系 , 原点 O 位 于 力 心 重 核 处 ， 则 (2.3.1) REE 
角 坐 标 系 Ory 中 的 投影 方程 为 


de Mea 
d? — m (z? 十 ae 
y 
dy k : (2.3.2) 
dt? m (a? +p)? 
Sy =s, p=, y =y, y= i ， 则 (2.3.2) 式 可 写成 
dii 
E 4” 
SE k —5wn 
dt — m (y? + y 3/2 
yi + y3) 
2.3.3 
dys _ NO 
dt "4 


du _ k Y3 
dt m ( 2 ae 

AS a 粒子 沿 Oz 方向 入 射 ， 入 射 速率 为 we ， 则 初始 条 件 为 页 = 20, yo = 
Uo, Y3 = Yo, Yy 二 0。 实际 程序 十 分 简单 ， 为 了 能 得 到 多 条 粒子 的 运动 轨迹 ， 程 
序 中 给 出 了 多 个 初始 条 件 。 程序 运行 的 结果 如 图 2.4 所 示 . 
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—— —— @ wur 


图 2.4 o 粒子 的 散射 轨道 


实际 研究 a 粒子 散射 时 ， a 粒子 都 是 从 重 核 力 场 之 外 入 射 ， 即 zol 的 值 必 
须 足够 大 ,使 得 初始 时 刻 的 轨道 近乎 于 平行 的 直线 ，a 粒子 离开 力 场 后 的 轨道 
也 为 直线 ， 此 直线 与 z 轴 的 夹 角 即 出 射 方向 相对 入 射 方 向 的 偏转 角 ， 也 就 是 散 
射 角 . 改变 yo, vo, k, m, 可 以 定性 观察 它们 对 散射 角 的 影响 。 


4 EX 
如 果 将 方程 (2.3.3) 改 成 2.2 节 (2.2.2) 式 的 形式 ， 能 不 能 求 得 结果 ? 


5. 参考 程序 

主 程序 的 文件 名 是 alzssm , 

function alzss 

figure 

yO=[-10,1,10,0; 和 yy 不同 的 初始 位 置 
-10,1,2,0; 

-10,1,0,0; 

-10,1,-10,0; 

-10,1,-4,0; 

-10,1,4,0; 

-10,1,15,0; 

-10,1,-15,0; 

-10,1,-2,0; 

-10,1,7,0; 

-10,1,-7,0]; 
line(0,0,'marker’,’.’,'markersize’,50,'color’,'r’); 


text(2,0,' HAF ','fontsize',14 ); 
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xlabel (‘x’) ;ylabel(‘y’) ; 
hold on 
axis([-10 20 -20 20]) 
for i=1:11 
[t ,y]=ode23(‘alzssfun’, [0:.1:32] ,yO(i,:),[ 1,32; 
plot(y(:,1),y(:,3)) 
end 
函数 文件 是 一 个 独立 的 文件 ,文件 名 为 alzssfun.m, 其 中 p= k/m . 
function ydot=alzssfun(t,y,flag,p) 
ydot=[y (2) ; 
pry (1) /sqrt Cy CD) .*y(1)+y(3) .*y(3)).73; 
y(4); 
p*y (3) /sqrt (y(1) .*y (1) +y(3) .*y(3)).73]; 
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2.4 水 星 近日 点 的 进 动 


1. 实验 题目 

研究 水 星 近 日 点 的 进 动 。 由 于 广义 相对 论 对 万 有 引力 定律 的 修正 ， 引 起 水 
星 运 动 轨道 的 进 动 ， 水 星 的 空间 轨道 不 再 是 闭合 的 椭圆 轨道 .广义 相对 论 对 万 
有 引力 的 修正 可 以 归结 为 在 原来 的 运动 方程 中 增加 一 个 小 的 修正 项 e/r* ， 其 中 
e = 3Gmomh? [? 是 小 量 ，G 为 万 有 引力 常量 ，mo 为 太阳 质量 ，m AKER 
E, HEZ PER, h 为 水 星 掠 面 速度 的 两 倍 .水星 运动 轨道 的 进 动 如 图 
2.5 所 示 。 


图 2.5 水 星 运 动 的 轨道 


2. 实验 目的 和 要 求 

画 出 水 星 运动 轨道 . 验证 只 要 质点 在 有 心力 场 中 所 受 的 力 与 平方 反比 引力 
有 微小 偏离 ， 其 轨道 就 不 是 闭合 的 椭圆 ， 从 而 证 明 广义 相对 论 对 万 有 引力 定律 
的 修正 将 引起 椭圆 轨道 的 进 动 。 


3， 解 题 分 析 
利用 比 尼 公式 求 得 水 星 的 极 坐标 方程 为 


du Gmo | 3Gmo » 
dp eet ee M 
引入 
Gmo 3Gmo 
acude 
则 轨道 方程 可 写 为 
Su tat bu? 


de? 
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等 价 于 两 个 一 阶 方程 , 设 w=wws =, ， 则 上 式 为 


dui E 

do 一 2 

du 

EDS = —u +a + buy? 


数值 求解 时 ， 由 于 实际 修正 项 非常 之 小 ， 需 适当 选取 参数 ， 夸 张 地 展示 轨 
道 的 进 动情 况 . 


4. 思考 题 
(1) 本 题 能 不 能 用 极 坐标 的 数值 直接 作 图 ? 为 什么 ? 
(2) 改变 方程 中 b 信 的 大 小 ， 运动 轨 迹 将 如 何 变 化 ? 


5. 参考 程序 
主 程序 的 文件 名 是 sxjd.m , 
[theta,u]=ode45 ('sxjdfun’, [0:pi/100:30*xpi] ,[0.1,0]); 


figure 


axis equal 


axis off 

hold on 

plot(0,0,^*r/) TAN M iL EL 
[x,y]=pol2cart(theta,1./u(:,1)); WX 极 坐标 转换 为 直角 坐标 
plot (x,y) 


函数 文件 是 一 个 独立 的 文件 ， 文 件 名 为 sxjdfun.m 。 


function ydot=sxjdnfun(theta,u) 


a=1; 
b=0.06; 
ydot=[u(2) ; 


-u(1)*atb*u(1)^2]; 


122 * 23k 模拟 实验 题目 
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1l. 实验 题 目 

把 一 艘 飞船 从 地 球 送 到 金星 ,最 节省 能 基 的 方法 不 是 让 飞船 沿 直 线 飞 向 该 
行星 ， 而 是 让 它 航 行 于 半 椭 圆 轨 道 。 该 轨道 与 地 球 轨道 和 金星 轨道 相 切 ， 这 种 
半 椭 圆 双 切 轨道 称 为 瞧 曼 轨道 . 霍 曼 轨道 是 一 种 最 省 能 量 的 行星 际 间 的 输 运 轨 
道 ， 可 以 从 外 行星 向 内 行星 输 运 ， 也 可 以 从 内 行星 向 外 行星 和 输 运 . 

如 图 2.6 所 示 ， 内 、 外 两 圆 是 金星 和 地 球 运行 的 轨道 ， 它 们 的 半径 分 别 为 
0.72 AU 和 1.00 AU(LAU— 日 地 距离 ) ， 它 们 的 运行 方向 由 图 中 箭头 表示 。 从 日 心 
坐标 系 看 ， 静 止 在 地 球 上 的 飞船 先是 以 地 球 的 轨道 速度 v 作 圆 周 运动 . Be 
轨道 就 是 以 EV 为 长 轴 的 椭圆 轨道 ， 它 与 两 行星 轨道 相 切 . 飞船 在 E RETA 
速 ， 进 入 霍 曼 轨道 。 利 用 开 普 勒 第 三 定律 计算 出 从 五 点 运行 到 六 点 所 需 的 时 
间 . 选择 适当 的 发 射 时 刻 , 使 飞船 运行 到 VV 点 时 正好 与 金星 相遇 , TEV 点 再 次 
进行 调 速 ， 使 飞船 与 金星 一 起 沿 金星 轨道 运动 。 


1.00AU 


图 2.6 霍 曼 轨道 的 示意 图 


2. 实验 目的 和 要 求 
模拟 从 地 球 发 射 飞船 沿 霍 曼 轨 道 到 达 金 星 并 与 之 同步 运动 ， 


3， 解 题 分 析 
将 地 球 和 金星 绕 太 阳 的 运动 近似 看 作 勺 速 圆周 运动 .飞船 脱离 地 球 后 的 运 
动 近 似 看 作 只 受 太 阳 的 引力 作用 。 
T 


地 球 的 运动 : Tj = 1 AU = 1.496 x 108 km >» W= a $ Tı = 365.26 d 
1 


金星 的 运动 : 72 = 0.72 AU, m= E, T, = 224.7 d 
2 
选用 极 坐标 系 ， 飞 船 的 运动 微分 方程 为 
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式 中 G 为 万 有 引力 常数 ，mo 为 太阳 质量 。 作 数值 计算 时 还 需 将 方程 化 为 
一 阶 方程 ， 即 实验 2.2 中 列 出 的 方程 组 (2.2.2) X. 

下 面 来 计算 实现 这 一 霍 曼 轨道 所 需 的 两 次 调 速 . 在 五 点 飞船 已 具有 地 球 的 
轨道 速率 vp ， 其 较 准 确 的 数值 为 29.6 km/s, “KAA Sue EV 的 椭圆 运 
动 需要 的 总 能 量 为 


万 二 | Gmom _ | Gmom 
B 2a . | 1.72 
Mti up e$ di ARTE E n BIS IRE vi 
I S Gmom _ | Gmom 
go EE" 477 


vi © 0.92vg & 27.2 km/s 
因此 所 需 调 速 为 
Av, = 27.2 — 29.6 2 —2.4 km/s 
即 需 沿 地 球 运 动 的 相反 方向 以 24kmy/s 的 速率 发 射 飞 船 . 飞船 沿 椭圆 轨道 飞行 
BGA V 点 的 速率 v» 可 从 以 下 计算 得 出 
1 > Gmom E Gmom 


27270720 Ln 


1 1 Gm 

2 0 2 
IER |) ——. — 1.62 
E (cus ix) Ti UE 


vg £2 1.27vE & 37.7 km/s 


Uy — Voz — 34.9 km/s 
因此 需要 进行 第 二 次 调 速 ， 调 速 量 为 
Avy = 34.9 — 37.7 = 一 2.8 km/s 
即 飞 船 必须 启动 制 动 火 箭 ， 使 其 速率 减少 2.8 km/s. 
计算 程序 用 三 次 循环 来 计算 飞船 的 三 种 发 射 速度 所 对 应 的 轨道 ， 计 算出 的 
轨道 画 在 图 2.7 中 . 在 图 27 中， 每 一 幅 图 都 有 相应 的 文字 说 明 . 为 了 体现 立体 
的 效果 ， 用 指令 view 来 改变 观察 角度 . MAL WU AW, FE E Sx RA A 


而 金星 的 轨道 速率 为 
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速度 小 于 ww ， 则 飞船 的 轨道 不 能 到 达 V 点 ， 所 以 不 会 与 金星 轨道 相 切 ; BIE E 
点 飞船 的 发 射 速度 大 于 vi ， 则 飞船 的 轨道 会 超过 VV 点， 也 不 能 与 金星 轨道 相 
切 ， 只 有 在 瑟 点 飞船 的 发 射 速度 等 于 wm ， 飞 船 的 轨道 才能 到 达 V 点 与 金星 轨 
EHH. 


图 2.7 飞船 的 轨道 
(a) 飞船 发 射 速度 小 于 vi 时 的 轨道 ; (b) 飞船 发 射 速度 
Aou 时 的 轨道 ， (c) 飞船 发 射 速度 等 于 vi 时 的 轨道 


计算 中 所 采用 的 数据 如 下 : 

解 方 程 传递 的 参数 为 G = G mo, 取 值 为 8900 , 

由 开 普 勒 第 三 定律 ， 了 T=2n Vas/GM, 可 求 出 飞船 在 霍 曼 轨道 上 运行 的 时 
间 为 t3 — T/2 x 0.84 。 在 程序 中 时 间 的 步 长 为 0.01, 故 得 时 间 的 步 数 为 84 ， 程 
序 作 动画 时 将 它 调整 为 86 .此 后 飞船 将 脱离 霍 曼 轨道 而 沿 金星 的 轨道 运行 。 
地 球 公 转 的 周期 为 媒 羡 2.3 .地 球 和 金星 的 初始 角速度 分 别 为 2.98 rad/s 和 4.88 
rad/s ， 地 球 与 金星 的 初始 位 置 的 极 角 分 别 取 为 0 和 (0.01- 1/3)r 。 飞船 初 始 的 
角速度 随 需 要 而 选取 . 这 些 数据 根据 实际 情况 计算 得 出 ,但 略 有 改动 。 


4. BAR 
将 图 形 恢复 为 二 维 的 形状 ， 所 得 的 结果 是 什么 样 ? 


5. 参考 程序 
主 程序 的 文件 名 是 hmgd.m . 
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figure 

for j=1:3 %% 循 环 三 次 计算 不 同 的 飞船 发 射 速度 所 对 应 的 轨道 
timei-[2.3;2.1;2.3]; 和 地 球 与 金星 三 次 运动 的 时 间 
time2=[2.3;2.1;0.84]; ‰y 飞 船 三 次 运动 的 时 间 
v=[2.1;3.5;2.74] ; %y 飞 船 的 发 射 速度 


和 下 面 依 次 求 地 球 、 金 星 与 飞船 的 轨道 

[t1,z1]=ode45 (‘hmgdfun’, [0:0.01:time1(j)],[10,0,0,2.98],[ ],8900); 
[t2,z2]=ode45 (‘hmgdfun’, [0:0.01:timei1(j)1,[7.2,0,... 

(pix(0.01-1/3)) ,4.88],[ 1,8900); 

[t3,z3]=ode45 (‘hmgdfun’, [0:0.01:time2(j)1,[10,0,0,v C321, EL 1,8900) ; 
[x1,ui]-pol2cart(zi1(:,3),z1(:,1)); htt RC AB RR A EL AA AES 
[x2,u2]=pol2cart(z2(:,3),z2(:,1)); 
[x3,u3]=pol2cart (z3(: ,3) ,z3(:,1)); 
plot(xi(:),u1(:), y',x2(:),u2(:) ,’y’,x3(:) ,u3(:) ,’b’) AAE Zh, xir 
hold on 


axis off 


和 yy 以 下 是 太阳 ， 地 球 ， 金星， 飞船 的 图 形 句柄 


sun-line(0,0,'color','r','erasemode','xor','marker',... 


!.! ,'markersize',80); 


earth-line(10,0,'color!,'b','marker','.','erasemode',... 


'xor! ,!'markersize',40); 


venus-line(7.2,0,'color','m','marker','.',' 


erasemode’,... 
'xor! ,!'markersize',30); 
DEDE. $ ae E) ne O $ 
ship-line(10,0,'color','r','marker','p','erasemode',... 


'xor! ,!'markersize',10); 


AAL T text 中 的 内 容 均 为 图 示 标 注 

if j== 
view(0,58) 
title’ £2 BÉ ^» 
text(-10,-10,-1, 方位 角 0 Hf, 仰角 58 H5» 
text(-4,19,1,' 依次 为 太阳 ， 地 球 ， E, KHD 
text(-8,32,1,' 当 飞船 速度 小 于 相 切 速度 时 ,... 

宇宙 飞船 轨道 可 以 与 金星 ”) 
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text(-10,28,1,' 轨道 相交 。 虽 然 这 时 宇宙 飞船 . . . 
可 能 与 金星 相遇 ， 但 飞船 ) 

text(-10,24,1,' 要 降 在 金星 上 ， 它 的 速度 需要 . . . 
改变 很 大 ， 需 要 极 大 能 量 . D 


sun00=line(-8,35,'color’,’r’,’marker’,’.’,' 


markersize',18); 


earthii-line(-7,35,'color','b','marker','.','markersize',14); 


! s m ss ip et 


venus22-1ine(-6,35,'color','m','marker', markersize',12); 


ship33-line(-5,35,'color','r','marker','p','markersize',10); 


elseif j-- 


view(-90,50) 

text(-65,16,1,’ 方位 角 | -90 BF; MA: 50 HE 5; 

text (-4,8,1,' 依次 为 太阳 ， Peg 金星 ， 飞船 0; 

text(-1,15,1,' 当 飞 船 速度 大 于 相 切 速度 时 ， 
飞船 的 轨道 将 不 与 金星 轨道 相交 。 ^ 


^ RPM 


sunOO-line(-4,12,1,'color','r','marker', markersize',18); 


earthii-line(-4,11,1,'color','b','marker','.','markersize',14); 


[. ,! Pe 


venus22-1ine(-4,10,1,'color','m','marker', markersize',12); 


ship33-line(-4,9,1,'color','r','marker','p','markersize',10); 


else j-- 


view(1,54) 
text(-10,-10,-1, 方位 角 1 Hf, WH: 54 BF) 
text(-6,12,1,' 依次 为 太阳 ， 地 球 ， dm E, ORO 
text(-10,16,1,' 当 飞 船 速度 等 于 相 切 速度 时 ， 

飞船 的 轨道 将 与 金星 轨道 相 切 。 ”) 


sun00=line(-10,27,'color’,’r’,'marker’,'.','markersize’,18); 


earthi1=line(-9,27,'color’,'b’,'marker’,'.’,'markersize’,14); 


Fil 2! SEU 


venus22-1line(-8,27 ,'color','m','marker', markersize’,12); 


ship33-line(-7,27,'color','r','marker','p','markersize',10); 


end 


ni-length(t3); 
for i=1:n1 %y 模 拟 地 球 、 金 星 与 飞船 的 运动 


set(earth,'xdata',x1(i),'ydata',u1(i)); 
set (venus ,'xdata' ,x2(i) ,'ydata' ,u2(i)) ; 
set(ship,'xdata',x3(i),'ydata',u3(i)); 


drawnow; 
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pause(0.1); 


end 


%% 在 第 三 种 情形 (BRR), 飞船 与 金星 相遇 后 将 按 金 星 的 轨道 运动 


if j== 
n2=length(t2) ; 
for i-86:n2 
set(earth,'xdata',x1(i),'ydata',u1(i)); 
set (venus ,’xdata’,x2(i) ,/ydata’,u2(i)); 
set(ship,'xdata',x2(i),'ydata',u2(i)); 
drawnow; 
pause(0.1); 
end 
end 
cla 
end 


函数 文件 是 一 个 独立 的 文件 ,文件 名 为 hmgdfun.m , 
function rdot= hmgdfun(t,r,flag,G) 
rdot=([r (2); 

r(1)*r(4)*r(4)-G/r(1)/r(1); 

r(4); 

-2*r(2)*r(4)/r(1)]; 
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2.6 行星 引力 加 速 


l. 实验 题目 

研究 飞船 在 飞 临 菜 个 行星 附近 时 所 产生 的 行星 “引力 加 速 ” 现象 . 设 地 球 、 
木星 、 LE, REE, 海王 星 等 行星 都 在 同一 平面 内 围绕 太阳 做 匀速 圆周 运动 ， 
飞船 除 受 太阳 引力 作用 外 ,原则 上 还 受 这 些 行星 引力 的 作用 ,实际 上 只 有 当 飞 
船 飞 临 某 行星 附近 时 , 该 行星 的 引力 才 足 以 吸引 飞船 , 使 之 加 速 . 因此 需要 等 待 
各 大 行星 位 置 排列 成 有 利 阵 形 并 合理 地 设计 飞船 的 航行 轨道 , 使 之 能 途经 某 行 
星 ， 经 加 速 后 又 能 到 达 目 标 行星 . 图 2.8 是 飞船 被 途经 行星 “引力 加 速 ” 的 轨迹 。 


从 里 到 外 依次 为 太阳 、 地 球 、 木星 


OA 


y 虚线 (红线 ) N 
\ z CO» ~、 为 原 轨道 j 
实 线 ( 蓝 线 ) C 
为 加 速 轨道 


图 2.8 飞船 被 途经 行星 “引力 加 速 ” 的 轨迹 


2. 实验 目 的 和 要 求 

演示 飞船 被 途经 行星 “引力 加 速 ” 后 ， 轨 道 发 生 改 变 的 现象 . AIBA K 
船 的 总 能 量 从 小 于 零 变 为 大 于 零 ， 则 飞船 轨道 将 从 椭圆 改变 为 双 曲 线 ， 从 而 大 
大 缩短 到 达 外 行星 的 航行 时 间 。 


3， 解 题 分 析 

现 说 明 引 力 加 速 原理 。 当 飞船 沿 椭圆 轨道 飞行 与 途经 菜 行星 相遇 时 ( 设 该 
行星 为 木星 ), 在 进入 木星 引力 为 主 的 范围 后 ， 飞 船 被 木星 短 时 爷 获 ， 这 时 ， 飞 
船 一 面 被 木星 携带 着 以 巨大 的 木星 轨道 速度 运动 ,一 面 被 木星 较 强 的 引力 改变 
着 运动 方向 。 在 被 俘获 的 较 短 时间 内 ， 太 阳 对 飞船 的 引力 作用 相对 木星 引力 作 
用 很 小 .而 由 于 飞船 质量 相对 于 木星 质量 很 小 飞船 的 运动 几乎 不 改变 木星 的 
运动 ,在 短 时 间 内 木星 可 视 为 作 匀 速 直 线 运 动 ， 木星 坐标 系 ( 即 原点 建立 在 森 
星 中心 的 平 动 坐标 系 ) 可 视 为 惯性 系 . 飞船 相对 该 惯性 系 的 运动 与 带电 粒子 在 
核 场 中 的 散射 类 似 ， 遵 守 机 械 能 守恒 定律 . 因此 飞船 再 次 飞 离 木星 引力 场 时 的 
相对 速度 的 大 小 Ut ,与 它 进入 木星 引力 场 的 相对 速度 大 小 Ui 是 相等 的 ， 木星 
引力 场 的 作用 仅 使 相对 速度 的 方向 发 生 偏转 。 
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如 图 2.9 所 示 ， 设 木星 的 轨道 速度 为 V} ， 飞 船 与 木星 相互 作用 前 后 相对 日 
心 系 的 速度 分 别 为 Vi 和 Ur ， 则 
Vi 三 V; TU; 
Vr = V; + Us 
飞船 获得 的 动能 增 量 为 
AT = mV: (Ur — Ui) 


通过 改变 瞄准 距离 ,速度 大 小 的 增 量 可 接近 Vi, 经 木星 后 飞船 的 轨道 变 为 双 曲 
线 ， 从 而 大 大 缩短 飞行 时 间 . 


P(x,y) 


图 2.9 飞船 经 过 行星 附近 时 速度 发 生 改变 ”图 2.10 飞船 与 各 行星 相对 位 置 的 示意 图 


在 用 数值 计算 的 方法 求 飞船 的 运动 时 ， 可 认为 飞船 在 太阳 、 地 球 、 木 星 、 
土星 、 天 王 星 、 海 王 星 等 多 个 星体 的 引力 作用 下 运动 . 由 于 这 些 星体 均 按 已 知 
规律 运动 ,所 以 用 数值 计算 的 方法 求解 飞船 的 运动 在 原则 上 是 可 行 的 . 以 太阳 
为 原点 ， 建 立 平 面 直 角 坐 标 系 ( 惯性 系 )， 设 某 星体 P; 的 质量 为 m, RHEEN 
矢量 riley) 表示 .飞船 PP 的 位 置 用 矢量 r(x,y) HA. 如 图 2.10 Brzs. 于 是 描 
述 飞 船 运 动 的 矢量 形式 运动 微分 方程 为 
?r i(ri—-r 
EE JS Gr (rs ) 


dt? |r; — r|? ~ 
其 投影 方程 为 d? Gm, (a; — x) 
d? y 2: A l 2]372 
[CE + Gi yy] (2.6.2) 
diy y Gmi (yi — y) J 
: 3/2 
EE [Gd | 


设 第 ;个 星体 的 轨道 半径 为 mw ， 其 匀速 圆周 运动 的 角速度 为 w;， 初 位 置 相 
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对 于 Oz 轴 的 极 角 为 Gio ， 则 上 式 中 的 


Ti = Ti COS (wit 十 bio) j yi = risin (wit + io) 


都 为 已 知 。 
设 yı Z T, Y2 Z dz. Y3 = Y, Y4 = $ > 将 (2.6.2) 式 化 为 
dy 
dc 
dy» — Gmi (zi — 1) 
[om WM AMEN 12 
i [Gs — yi) + (yi — ys) | 
dus _ 
dt ^ 
dy, — Gmi (yi — ya) 
mw 2/.——— o e 


i [Gs = yi) + (yi — vy 


如 果 考 虑 木星 对 飞船 的 引力 加 速 ， 实 际 计算 只 需 考 虑 太阳 和 木星 两 个 星体 
引力 的 作用 ， 其 他 星体 的 作用 可 忽略 不 计 . 程序 的 编写 比较 简单 ， 只 要 正确 地 
设置 各 种 参数 即 可 .为 了 比较 ， 程 序 中 还 计算 了 没有 经 过 行星 “引力 加 速 ” 的 
尺 船 轨道 ,方法 是 在 原来 的 计算 中 取 木 星 的 质量 为 零 即 可 . 图 2.8 就 是 程序 运 
行 的 结 


4 X 
本 节 用 于 计算 行星 引力 加 速 的 函数 文件 与 2.2 节 行 星 轨道 中 用 于 计算 的 函 
数 文件 有 何不 同 ? 


5. 参考 程序 
主 程序 的 文件 名 是 xxyljs.m 。 


%%program 
G=6.67e-11; XX 万 有 引力 常数 
Msun-1.99e30; WX 太阳 质量 
Mear=5 .976e24; AU, ER E E 
Mjup=6e29; WY 放大 的 木星 质量 
unit=1.4959787e11; 和 日 地 距离 
rear=unit; 
rjup-5.203*unit; 和 木星 与 太阳 距离 
tear0-3.1; AAH BR 40 36 f AA de 


tjup0=-1.06; ‰y 木 星 初始 角 坐 标 
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figure; %% 画 各 行星 的 轨道 
ti=0:pi/60:2*pi; 
hold on 


axis([-1e12,1e12,-1e12,1¢12]); 

axis off 

view( [86,48] ) 

titled’ 放大 的 加 速 轨迹 ','fontsize' ,14) ; 

text (-5.43e+11,-8.89e+11,0.5,' 从 里 到 外 依次 为 太阳 ,地球 ， 木 星 ); 
‰y 画 地 球 与 木星 轨道 


plot(rear*cos(ti),rear*sin(ti),'c',rjup*cos(ti),rjup*sin(ti),'c); 


xo=(reart+10.37e6)*cos(tear0) ; 和 初始 时 刻 飞船 x 坐标 
xd=3.7e9*(-sin(tear0)); 和 初始 时 刻 飞 船 工 方向 速度 
yo=(rear+10.37e6)*sin(tear0); %% 初 始 时 刻 飞 船 y 坐标 
yd=3.7e9*(cos(tear0)); %% 初 始 时 刻 飞 船 y 方向 速度 
[t,x]-ode23('xxjsfun2', [0:1:1000] , [xo,xd,yo,yd],... 

[ ],tearO,tjupO,Msun,Mear,Mjup,rear,rjup,G); 入 求 飞船 的 运动 轨迹 


%% 模 拟 地 球 、 木 星 与 飞船 的 运动 


sun = line(0,0,’color’,’r’,’marker’,’.’,... 


'markersize!,45,'erasemode','xor'); 


Earth = line(rear*cos(tear0), rear*sin(tearO), ‘color’, 'b',... 


1 1/ 


‘marker’, '.', 'markersize', 25,'erasemode’,'xor’); 


Jupiter = line(rjup*cos(tjupO), rjup*sin(tjupO), ‘color’, 'g,... 


‘marker’, '.', 'markersize',30,'erasemode','xor'); 


voyagera = line(rear*cos(tear0), rear*sin(tearO), ‘color’, 'k',... 


L 


'marker', '*', 'markersize',7,'erasemode','xor/); 


voyageraa = line(rear*cos(tear0), rear*sin(tearO), ‘color’, 'b',... 
it 


‘marker’ , , ‘markersize’,1,'erasemode’,’none’) ; 


text(8et11,-10et+11,’ dE ZEE uE '); 


for t=1:1001 
thetaear=tear0+t/365*2*pi ; 
thetajup=tjupO+t/(11.86*365) *2*pi; 


set(Earth,'xdata',rear*cos(thetaear),'ydata',rear*sin(thetaear)); 


set(Jupiter,'xdata',rjup*cos(thetajup) ,'ydata',rjup*sin(thetajup)); 
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set(voyagera,'xdata',x(t,1) ,'ydata',x(t,3)); 
set(voyageraa,'xdata',x(t,1) ,'ydata',x(t,3)); 
drawnow; 

end 


piot(z(:,1), 405,9), b^) 


Mjup=0; %% 令 木星 质量 为 零 ， 再 计算 飞船 轨道 
[t,x]=0de23(’xxjsfun2’, [0:1:3000] , [xo,xd,yo,yd],... 
[ ],tear0,tjupO,Msun,Mear ,Mjup,rear,rjup,G); 

plot(x(:,1),x(:,3),'r’) 
text(-1e*11,3e*11,' 红线 为 原 轨道 ” 
函数 文件 是 一 个 独立 的 文件 ,文件 名 为 xxjsfun2.m 。 


function xdot-xxjsfun2(t,x,flag,tearO,tjupO,Msun,... 


Mear,Mjup,rear,rjup,G) 
xdot-[x(2); 
3600*24*3600*24* (G*Msun* (-x (1))/(x(1)^24x(3)^2)^1.5... 
+G*Mear* (rear*cos(tear0+t/365*2*pi)-... 
x(1))/((rear*cos(tear0*t/365*2xpi)-x(1))72... 
+(rear*sin(tear0+t/365*2*pi)-x(3))°2)71.5... 
+G*Mjup* (rjup*cos(tjup0+t/(11.86*365)*2*pi)-... 
x(1))/((rjup*cos(tjup04t/(11.86*365)*2*pi)-... 
x(1))^2*(rjup*sin(tjupO*t/(11.86*365)*2*pi)... 
-x(3))^2)^1.5); 
x(4); 
3600*24*3600*24* (G*Msun* (-x (3)) / (x(1)^2*x(3)^2)^1.5... 
+G*Mear* (rear*sin(tear0+t/365*2*pi)-... 
x(3))/((rearx*cos(tear0*t/365*2x*pi)-x(1))^2... 
+(rear*sin(tear0+t/365*2*pi)-x(3))°2)71.5... 
*G*Mjup*(rjup*sin(tjupO-*t/(11.86*365)*2*pi)-... 
x(3))/((rjup*cos(tjup0O*t/(11.86*365) *2*pi)-... 
x(1))^2*(rjup*sin(tjupO*t/(11.86*365)*2*pi)... 
-x (3p 51.551; 
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2.7 市 电 粒 子 在 电磁 场 中 的 运动 


l. 实验 题目 

研究 带电 粒子 在 均匀 稳定 电磁 场 中 的 运动 . 设 带 电 粒 子 质 量 为 m ,带电 量 
为 4。 电磁 场 的 电场 强度 为 五 ， 磁 感应 强度 B., 分 三 种 情况 考虑 : 

(1) 电场 强度 和 磁感应 强度 都 不 为 零 ; 

(2) 电场 强度 为 零 ， 磁 感应 强度 不 为 零 ; 

(3) 电场 强度 不 为 零 ， 磁 感应 强度 为 零 . 


2. 实验 目 的 和 要 求 
(1) 研究 带电 粒子 在 均匀 稳定 电磁 场 中 的 运动 情况 ， 画 出 粒子 运动 轨迹 .。 
(2) 学 习 用 指令 axes 在 图 形 窗口 的 不 同位 置 设 定 坐标 轴 来 画 多 个 图 形 . 


3， 解 题 分 析 
在 电磁 场 中 带电 粒子 的 运动 微分 方程 为 


d 
mo =qE+qvxB (2.7.1) 


以 场 中 菜 点 为 原点 ,以 为 Oy 方向 ，B 为 0z 方 向 建立 坐标 系 Ozyz ， 令 
w= qB [m , W (2.7.1) 式 的 投影 方程 为 


dz _ dy 
di? . Wat 
2 
oy = gE w de (2.7.2) 
dz. 
ag? 


(2.7.2) 式 为 线性 微分 方程 组 ， 可 求 其 解析 解 . 将 (2.7.2) 式 中 第 一 式 积分 求 
出 dE Soy +C, ， 代 入 第 三 式 得 


其 解 为 相应 齐 次 方程 通 解 加 上 该 非 齐 次 方程 特 解 


y = C» cos (wt + C3) + E (5 = ex) (2.7.3) 
w \B 
把 上 式 代入 € oy + C1， 积 分 后 可 求 出 


E 
x = Co sin(wt + C3) + FU TC, (2.7.4) 
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由 (2.7.2) 式 中 第 三 式 积分 可 求 出 
z = Cst + Cg (2.7.5) 


(273) sk ~ (2.7.5) 式 为 粒子 的 运动 学 方程, 积分 常数 C1 ~ C6 由 初始 条 件 定 出 . 
下 面 对 粒 子 的 运动 图 像 加 以 分 析 . 粒子 运动 微分 方程 (2.7.1) 式 有 一 特 角 
v, CEM B+ vx B=0 所 决定 的 常量 ，w = ni (EX 召 方向) 由 粒子 运 
动 学 方程 可 知 ,粒子 的 运动 为 沿 电 方 向 的 匀速 直线 运动 、 绕 磁感应 线 的 匀速 加 
周 运动 和 沿 Bx B Jr PL ERE hi nu 
4 yi = cya = dz/dt,ys = y, y4 = dy/dt, ys = z, ye = dz/dt, WW 2.7.2) 式 成 为 : 


dyı 
dt 


求解 时 按 题目 要 求 分 三 种 情况 进行 讨论 : 

(1) E40,B40 

(2) E=0,B40 

(3) E40,B=0 
并 把 数值 计算 结果 与 解析 结果 进行 对 照 . 本 题 程序 没有 新 的 技巧 ,程序 运行 结 
果 如 图 2.11 所 示 。 


图 2.11 带电 粒子 在 电磁 场 中 的 运动 
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4. ES AA 


对 比 指令 axes 5j subplot 的 用 法 . 


5. 参考 程序 
主 程序 的 文件 名 是 dccm . 
%%program 
q=1.6e-2; m=0.02; 
B-[2;1;0]; E-[1;0;1]; 
figure 
strd{1} = 'E \neq 0, B \neq 0'; 
strd{2} = 'E-0, B \neq 0’; 
strd{3} = 'E \neq 0, B=0'; 
for i=1:3 
[t ,y]=ode23 ('dccfun', [(0:0.1:20],[0,0.01,0,6,0,0.01],... 

[],q,m,B(i) , EG) ; 

%% 设 置 轴 的 范围 
axes(‘unit’, ‘normalized’, ‘position’, [ 0.0293+(i-1)*... 
0.3240 0.062 0.2786 0.6583 J); 
plot3(y(:,1),y(:,3),y(:,5),/linewidth’, 2); 


grid on 


title(strd(i),'fontsize',12,'fontweight','demi'); 

view([-51,18]); 
end 
函数 文件 是 一 个 独立 的 文件 ,文件 名 为 dccfun.m , 
function ydot-dccfun(t,y,flag,q,m,b,e) 
ydot-[y (2); 

q*b*y (4) /m; 

y(4); 

q*e/m-qx*bxy (2) /m; 

y(6; 

0] ; 
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2.8 JE S ta FR 


1l. 实验 题目 

研究 落体 偏 东 现象 。 地 球 上 物体 由 于 受 地 球 自转 的 影响 而 不 再 沿 铅 垂 CURE 
BL) 方向 下 落 ， 质 点 落地 位 置 较 垂 足 偏 东 。 试 在 地 球 上 纬度 为 入 处 研究 这 一 现 
象 ,让 物体 从 高 度 为 h 处 的 PP 点 自由 下 落 ， 


2， 实 验 目 的 和 要 求 
(1) 研究 科 氏 力 对 质点 自由 下 落 运动 的 影响 , 计算 并 图 示 落 体 的 偏 东 效应 ， 
(2) 研究 落体 偏 东 效应 与 纬度 的 关系 ， 


3， 解 题 分 析 

在 地 球 上 建立 坐标 系 Ozyz : 原点 O 点 在 地 面 ，Ozx 轴 指 南 ， Oy 轴 指 东 ， 
Oz 轴 垂 直 地 面向 上 。 由 于 地 球 是 非 惯 性 系 , 质点 除 受 重力 外 还 受 惯 性 力作 用 . 
当 把 mg 理解 为 表 观 重力 时 ， 惯 性 力 中 只 需 考虑 科 氏 力 的 影响 。 故 质点 相对 地 
球 的 运动 微分 方程 为 


d? 
m^ = mg — 2m x v (2.8.1) 


KB w 为 地 球 自 转角 速度 . 于 是 可 得 (2.8.1) RE Ozyz 系 内 的 投影 方程 为 


2 
ee = 2mu sin À 
dt dt 
dy dz dz 
M NE c MINE 2.8.2 
md mu ( dr C A+ qg 9n A) ( ) 
d?z dy 
md = 2mw y cos 入 一 mg 


(2.8.2) 式 是 线性 微分 方程 组 , 可 求解 析 解 . 设 初始 条 件 为 f= 0 时 z = y =0, 2 
n, 4p = S = déco. 将 (2.8.2) 中 三 个 式 子 积分 一 次 并 定 出 积分 常数 ， 得 


= 2wy sin 入 

dy j 

mos —2w [(z — h) cos À + z sin A] (2.8.3) 
E = Qwy cos A — gt 


将 上 式 代 入 (2.8.2) X 


一 
am 
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2 
= = —4w” [(z — h) cos À + z sin A] sind 
d? 
E = 2gtw cos À — 4u?y 
d?z S : 
dB I — 4w? [(z — h) cos + asin A] cos A 
由 于 w=7.29x 10-5, c! 项 可 以 忽略 ， 于 是 上 式 化 为 
d? — 
2 
E = 2gtw cos À 
d?z = 
d I 


对 上 式 积 分 两 次 并 定 出 积分 常数 ， 得 到 
2 一 0 
1 ,3 
y= 了 组 w cos A 
l o 
z=h- 59t 


在 忽略 w 项 的 条 件 下 , PRIX Oc 和 0z 方 向 的 运动 几乎 没有 影响 ，y 
值 反映 出 其 偏 东 效应 。 由 上 和 式 消 去 时 间 二 可 得 质点 运动 的 轨道 方程 。 


z=0 | 
8 w? cos? 入 
putris LAS 
y =g j (h — z) 


下 面 对 (2.8.2) 式 求 数值 解 并 作 图 可 得 到 直观 的 图 像 . 将 (2.8.2) 式 化 为 


d 

dt y2 

d 
E = 2wy4 sin 入 
dW _ 

dt YA 

d 

E = —2w (ye cos A + y» sin A) 
dus _ 

dt Ye 

d 

0 2wy4 cos À — g 
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在 前 述 初 始 条 件 下 求解 即 可 .程序 的 编写 比较 简单 ， 没 有 新 的 要 求 。 

由 于 数值 求解 并 未 做 忽略 o^ 项 的 近似 ， 所 以 数值 解 不 但 可 求 出 落体 的 偏 
东 效 应 ， 还 包括 偏 南 等 高 阶 效 应 ， 作 图 时 可 以 把 偏 南 效应 也 反映 出 来 . 但 读者 
应 注意 ， 偏 南 效 应 并 没有 实际 价值 . 因为 我 们 在 建立 质点 的 动力 学 方程 时 并 未 
考虑 月 球 对 落体 的 影响 、 重 力 加 速度 g 的 不 均匀 性 等 的 作用 ， 所 以 求解 运动 微 
分 方程 时 得 出 的 与 或 更 高 阶 项 相关 的 效应 实际 上 可 以 不 予 考虑 。 

图 2.12 是 程序 运行 的 结果 ， 图 中 的 两 条 曲线 在 计算 机 屏幕 上 是 彩色 的 . 


A 
0 0.02 0.04 0.06 
偏 东 效应 


图 2.12 落体 偏 东 效应 


4. BAA 
如 果 地 球 的 自转 角速度 取得 过 大 ， 可 能 会 出 现 与 落体 偏 东 效应 不 同 的 结 
果 ， 试 分 析 一 下 . 


5. RA AL Fe 

主 程序 的 文件 名 是 ltpd.m , 

h=200; 

w=2*pi/ (60*60*24) ; 

g=9.8; 

tt=sqrt (2*h/g) ; 

t=0:0.01:tt; 

r0=[0,0,0,0,h,0]; 

wd1=20*2*pi/360; 

wd2=70*2*pi/360; 

[t ,r1]=ode23(‘1tpdfun’,t,r0,[ ],wd1,w); 
[t,r2]-ode23 ("1tpdfun',t,rO,[ ],wd2,w); 
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plot(r1(:,3),r1(:,5),’r’,r2(:,3),r2(:,5)); 


xlabel( 偏 东 效应 ') ; Vix 轴 上 的 标注 
ylabel(' BE"); 
legend(’ 纬度 -20',' 纬度 =70'); 和 5 图例 标 注 


函数 文件 是 一 个 独立 的 文件 ,文件 名 为 ltpdfun.m , 
function y-ltpdfun(t,r,flag,a,w) 
g=9.8; 
ydot=[y (2) ; 
2*w*y (4) *sin(r); 
y»; 
-2*w*(y(6)*cos (r)+y(2)*sin(r)) ; 
y (6) ; 
2*w*y (4) *cos(r)-g] ; 
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2.9 小 环 在 转动 大 环 上 的 运动 


1. 实验 题目 

如 图 2.13 所 示 , 质量 为 m 的 小 环 ,， 套 在 半径 为 RR 的 光滑 大 圆 环 上 ,并 可 沿 
大 环 滑 动 , 大 环 在 水 平面 内 以 匀 角 速度 w 绕 环 上 O 点 转动 . 小 环 相对 大 环 的 位 
置 可 用 过 小 环 的 大 圆 环 半 径 与 过 O 点 的 大 环 直径 间 的 夹 角 9 表示. 


图 2.13 在 大 环 上 建立 两 个 坐标 系 


2. 实验 目 的 和 要 求 

(1) 求 出 小 环 的 运动 方程 并 模拟 小 环 沿 大 圆 环 运动 . 

(2) 注意 在 模拟 动画 中 正确 地 表示 静止 坐标 系 与 运动 坐标 系 的 关系 。 
(3) 学 习 从 三 维 的 角度 观察 二 维 的 图 形 或 动画 . 


3， 解 题 分 析 

以 大 环 上 的 固定 点 O 为 原点 ， 建 立 与 地 面 固 连 的 直角 坐标 系 Ozy ， 以 大 环 

中 心 C 为 原点 建立 平 动 坐标 系 Cx'y ,如 图 2.13 Bras. 在 非 惯 性 系 Cry A, 在 

水 平面 中 小 环 受 到 大 环 约束 力 N 和 惯性 力 五 . EAR KAD A P= mo?R, W 
OC 方向 。 故 在 非 惯 性 系 Cz'y 内 小 环 的 运动 微分 方程 为 

d20 

dt? 


dé E 
4 yı = 9,y2 = TE > 则 上 式 化 为 


= —w’ sin 6 


dy _ 
gi ya 
E = —w? sginyi 


这 是 一 个 简单 的 常 微分 方程 ,很 容易 求 出 数值 解 。 在 推导 方程 的 过 程 中 ， 
没有 作 小 角度 近似 ， 因 此 也 能 应 用 于 小 环 偏离 平衡 位 置 较 大 的 情形 。 如 果 要 得 
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出 小 环 作 微 振 动 的 情况 ,小 环 偏离 平衡 位 置 不 宜 太 远 。 小 环 的 初速 度 以 及 大 环 
的 转速 可 以 通过 试验 适当 选取 . 需要 注意 的 是 如 何 正确 地 作出 动画 模拟 . 为 了 
表示 出 小 环 在 运动 中 对 平衡 位 置 的 偏离 ,程序 中 用 一 条 过 0O ，C 两 点 的 直径 来 
表示 运动 中 平衡 位 置 的 变化 。 大 环 是 用 参数 方程 画 出 ， 所 用 参数 是 大 环 的 圆心 
fio, PRA R — 2, 初始 时 刻 大 环 的 圆心 在 点 (R,0) ， 所 以 大 环 上 各 点 的 坐标 
为 (R+ Rcos à, R sin 9), 运动 中 大 环 的 圆心 在 点 (Rcoswt,Rsinwt) ， 所 以 大 环 上 
f WAR (Reoswt + Rcos 9, Rsinwt + Rsin d), 小 环 的 位 置 可 以 用 类 似 的 方 
法 计算 , 但 是 要 同时 考虑 小 环 自 身 的 运动 及 大 环 的 转动 所 带 来 的 影响 . 为 了 达 
到 更 好 的 观察 效果 ,对 二 维 的 图 形 用 指令 view 进行 三 维 观察 . 图 2.14 是 程序 运 
TR. 


图 2.14 小 环 与 大 环 的 模拟 运动 


4 X 

(1) 改变 大 环 的 转动 速度 ， 会 对 小 环 的 运动 产生 什么 影响 ? 

(2) 逐渐 增加 小 环 的 初始 速度 ， 会 对 小 环 的 运动 产生 什么 影响 ? 

(3) 如 果 小 环 的 初始 位 置 偏离 平衡 位 置 较 远 ， 小 环 的 运动 是 什么 样 ? 


5. 参考 程序 


主 程序 的 文件 名 是 dhyxh.m , 

R=2; %% 大 环 半 径 

theta=pi/6 ; w=0.1; %% 小 环 的 初始 位 置 与 初始 角速度 
[t,y]=0de23(’dhyxhfun’, [0:0.2:100] , [theta,w],[] ,pi/3) ; 
figure 

axis([-6 6 -6 6,-1,1 ]) 

hold on 


axis equal; 
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box on 

view(3); hh — 2 AL A 

phi-0:0.1:2*pi; XX 大 环 的 圆心 角 

xh-R*cos (phi); yh-R*sin(phi); %% 大 环 的 参数 方程 


AAKT, DARRER 0C 的 初始 位 置 
DY=line(R+xh, yh,'linestyle’,’-',’color’,'b’,’linewidth’,3,... 


'erasemode' ,'xor') ; 
SY=line(R+R*cos (theta) ,R*sin(theta),'color','r','marker','o',... 
'markersize',10,'linewidth',2,'erasemode','xor'); 
L-line([0,2*R] , [0,0] ,'color','k' ,'erasemode' ,'xor') ; 
for i-1:2:500 %% 实 时 动画 
set (DY,’'Xdata’,xh+R*cos(w*t(i)),’Ydata’,yh+R*sin(w*t (i))); 
set (SY,'Xdata’,R*cos(y(i,1)+w*t(i))+R*cos(w*t(i)),... 
'Ydata’ ,Resin(y(i,1)+w*t(i))+R*xsin(w*t(i))); 
set (L,'Xdata’, [0, 2*R*cos (w*t (1))] ,'Ydata', [0,2*R*sin(w*t(i))]); 


drawnow; 
pause(0.01) %%X 和 暂停 以 减 慢 动画 的 放映 速度 
end 
函数 文件 是 一 个 独立 的 文件 ， 文 件 名 为 dhyxhfun.m , 
function ydot=dhyxhfun(t,y,flag,omega) 
ydot-[y(2); 
-omega^2*sin(y(1))]; 


5t 
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2.10 jV BRE SERERE TU im ZI E E 80] 588 E ED 


1l. 实验 题目 

如 图 2.15 所 示 ， 地 面 上 有 垂直 放置 的 一 弹簧 ， 弹 簧 上 端 固 定 有 一 个 木 块 . 
有 一 个 小 球 从 空中 自由 下 落 ， 与 木 块 发 生 弹 性 碰撞 。 设 小 球 及 木 块 均 只 沿 垂直 
方向 运动 ， 木 块 保持 平 动 且 顶 面 与 地 面 平行 ,研究 小 球 与 木 块 运动 。 小 球 质量 
为 ml ， 木 块 质量 为 ma 。 MEDERI k. 


图 2.15 小 球 与 弹簧 上 的 木 块 的 运动 


2， 实 验 目 的 和 要 求 
(1) 画 出 小 球 与 木 块 的 位 移 曲 线 并 模拟 两 物体 的 运动 状况 ， 
(2) 学 习 用 指令 events 来 控制 求解 微分 方程 的 进程 . 


3， 解 题 分 析 

以 弹簧 自然 伸 长 位 置 的 上 端 作 为 原点 ， 轴 坚 直 向 上 ， 设 置 坐 标 系 如 图 
2.15 Pras. 以 yy 分 别 表示 小 球 与 木 块 的 位 置 , 根据 牛顿 定律 ， 可 列 出 除 碰撞 
瞬时 之 外 小 球 与 木 块 的 运动 微分 方程 
dy, B 
boum 
dy 


2 
[y ^" 


m —mig 


(2.10.1) 


4 ys = dyi/dt, ys = dys/dt ， 则 运动 微分 方程 表示 为 


dy; 


(2.10.2) 
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小 球 与 木 块 相 磁 条 件 为 yi = y. 在 弹性 碰撞 过 程 中 动量 守恒 、 机 械 能 守 
TH. 又 由 于 磁 撞 过 程 十 分 短暂 ， 所 以 可 以 忽略 磁 撞 过 程 中 二 物体 高 度 的 变化 ， 
则 在 碰撞 过 程 中 有 


I y 
Miviy 十 M2v2y = miU, t m205, 


(2.10.3) 
EE otis Patt. NE TRE 
airy + 2205, = gry + 2292, 
S ys = viy = dyi/dt, ys = voy = dys/dt ， 得 
miy3 + ma3y4 = may + mya 
(2.10.4) 
my3 + may; = maya. + myy 


在 编写 程序 时 ， 首 先 给 定 小 球 和 木 块 开始 运动 的 初始 条 件 ， 由 运动 微分 方 
程 组 求 出 它们 的 解 . EUR RE AS PE yi = yo 作为 指令 events 控制 求解 进程 的 条 件 . 
HERE y = yo 时 , 求解 方程 的 过 程 停止 . 按照 弹性 碰撞 的 条 件 求 出 这 时 两 
物体 碰撞 后 的 速度 viy 和 oy, 。 然后 用 此 刻 的 位 置 y — o — n = yo 和 速度 vv， 
和 vs, 作为 下 一 次 解 方程 的 初始 条 件 . 如 此 继续 反复 进行 即 得 出 小 球 与 木 块 的 
运动 方程 . 程序 在 画图 时 对 不 同 的 曲线 用 了 不 同 的 颜色 ， 指 令 legend 会 在 显示 
的 图 例 中 将 曲线 颜色 的 对 应 关系 表示 出 来 ， 由 于 本 书 的 图 形 是 黑白 的 ， 所 以 在 
图 2.16 中 不 能 看 出 这 种 对 应 关系 。 只 有 计算 机 的 屏幕 上 才能 看 出 曲线 的 颜色 及 
其 对 应 关系 。 程序 运行 的 结果 如 图 2.15 和 图 2.16 所 示 . 


一 小 球 


高 度 


- Hd 


3 4 4 4 + + - 
0 20 40 60 80 100 120 
时 间 


图 2.16 小 球 与 木 块 的 位 移 图 像 


4 BAA 
(1) 指令 events 的 功能 是 什么 ,如 果 不 使 用 它 , 在 解 微分 方程 的 过 程 中 会 遇 
到 什么 问题 ? 
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(2) 将 本 题 改 为 自由 下 落 的 小 球 与 作 简 谐 振动 的 桌面 作 弹 性 碰撞 ， 试 研究 


它们 的 运动 。 


5. 参考 程序 
主 程序 的 文件 名 是 xqythk.m , 
h0-50; m1=20; %% 小 球 的 高 度 和 质量 
k=60; m2=50; NATE 38 8 98 BR FO KIRA EE 
tstart=0; tfinal=1000; ASE HD 2 FE BN EAE FE RT 
y07[h0;0;0;0] ; NATE JU 36 AR P IN E E 
tout-tstart; %% 存 放 时 间 序 列 的 变量 
yout=y0.'; ”多 存 放 小 球 和 木 块 的 位 移 及 速度 序列 的 变量 
options=odeset ('Events','on') ; %% 开 启事 件 判 断 功能 
for i=1:25 
[t,y,event]-ode45('xqythkfun', [tstart:0.03:tfinal],yO,options); 
tout-[tout;t(2:end)]; 和 将 每 次 得 到 的 数据 依次 存在 同一 矩阵 
yout=[yout;y(2:end,:)]; 
y0(1)=y(end, 1); y0(2)=y(end, 2); WX 下 一 次 弹跳 的 初 位 移 
v10=y(end,3); v20=y(end,4); 

%% 由 动量 守恒 与 机 械 能 守恒 解 出 下 一 次 弹跳 的 初速 度 
y0(3)= (-m2*v10+2+m2+*v20+m1*v10) / (m24m1) ; 
y0(4)=(2+m1*v10+m2*v20-v20*m1) / (m2+m1) ; 
tstart=t (end) ; 


pi 


qu 


end 

figure 

ylabel( mi ^»; xlabel(’ 时 间 ^; 

hold on 

plot(tout,yout(:,1),tout,yout(:,2)); ‰ 画 小 球 与 木 块 的 位 移 曲 线 
legend(. 小 球 ',' MEIR ); Whe EE E S s ml 

figure 和 运动 模拟 

axis([-1 1 -50 h0+10]); axis off 

hold on 


AAT EDEN LL AREE HE EAE ONDE 
yt1=-45:0.3:0; xt1=0.06*sin(yt1) ; 


tanhuang-line(xt1,yt1,'color','k','erasemode','xor','linewidth',2); 


qiu-line(0,yout(1,1)-*4,'color','b','erasemode','xor',... 
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'marker','.','markersize',50); WY 小 球 的 初 位 置 

tank = line( [ -0.1,0.1 ], [ yout(1,2), yout(1,2) ], ‘color’,... 

[ 0.3 0.1 0.5],’erasemode’, 'xor','linewidth',8); %y 木 块 的 初 位 置 
ground=line([-0.5,.5],[-50,-50],’color’,[0.6 0.1 0.2],... 
‘linewidth’, 20) ; A% E R 


for i=1:length(tout) 和 实时 动画 
yt=-45:0.3:yout(i,2); Vu Oh BE WY eB 
xt-0.06*sin((yt-yout(i,2))*(-45)./(-45-yout (1,2))); 
set(tanhuang,'xdata',xt ,'ydata',yt); AAE 3n a P E € 
set(qiu,'ydata',yout(i,1)44); 4% 画 运动 中 小 球 
set (tank,'ydata’, [yout (i,2) ,yout(i,2)]); %Y 画 运动 中 木 块 


drawnow; 


end 
函数 文件 是 一 个 独立 的 文件 ,文件 名 为 xqythkfun.m 。 文件 的 格式 采用 了 
odefile 模板 的 格式 ， 用 指令 switch 来 执行 何 时 运用 事件 判断 的 功能 . 
function vararout=xqythkfun(t,y,flag) 
switch flag 
case ' ' 
varargouti-f(t,y); 
case 'events' 
[varargout1:3]=events(t,y); 
otherwise 
error(['Unknown flag ' " flag " '.']); 


end 


function ydot-f(t,y) 和 计算 微分 方程 的 子 函 数 
k-100; ml=30; m2=50; 
ydot=[y(3); y(4); -9.8; -9.8-(k/m2)*y(2);]; 


%% 事 件 判 断 子 函数 
function [value,isterminal,direction]=events(t,y) 
Q=y(1)-y (2); value=Q; %y 当 QH on, fgg uia 
isterminal-1; %% 开 居 判 断 终 止 功 能 


direction=-1; Whe OQ 减 小 的 方向 终止 
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2.11 大 摆 角 单 摆 


1， 实 验 题目 
研究 大 摆 角 单 摆 的 运动 . 设 单 摆 由 质量 为 m 的 摆 锤 和 长 为 1 的 轻 杆 构成 . 


2. KAW HBR 

(1) 研究 单 摆 总 能 量 对 运动 的 影响 . 

(2) 研究 单 摆 的 摆 角 对 运动 周期 的 影响 。 

(3) 学 习 利 用 总 能 量 等 于 势能 与 动能 之 和 的 关系 来 画 相 图 . 


3， 解 题 分 析 
以 上 基点 为 原点 O 建立 极 坐标 系 ， 极 轴 Ox 坚 直 向 下 ， 以 9 表示 单 摆 偏 离 平 
衡 位 置 的 角度 . 单 摆 的 运动 微分 方程 为 
d g. 
aoe (2.11.1) 
其 中 9 为 重力 加 速度 . 
单 摆 的 势能 为 V= mgl (1 一 cos0) ， 在 这 个 余弦 势 场 中 ,， PEW A Red E DR 
定 了 单 摆 的 三 种 运动 状态 。 下 面 在 与 P 构成 的 相 平面 分 三 种 情况 讨论 单 摆 
的 运动 。 


角速度 


、 
vid ^N 
" / x E 4 
` ^M 
HA 7 E< 2mgl 
it 1478 (8 WE: 
pig itl _ B= nel 
m itu 510 SUPE: 
Liggett 1 
ofa 
’ 


图 2.17 总 能 量 不 同 的 单 摆 所 对 应 的 相 图 


(1) E « 2mgl ， 摆 锤 在 -并 ~ 天 的 势 阱 中 作 周期 运动 , 其 相 轨迹 为 一 闭合 
曲线 ,能量 较 小 〈 对 应 小 摆 角 运动 ) 时 为 椭圆 。 
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(2) E»2mgl, RTEA P fE E IS 37, H o 可 以 趋向 to. 其 相 轨迹 是 
两 条 不 相交 的 曲线 ,对 应 两 个 不 同 的 运动 方向 。d9/dt > 0 表示 向 0 的 正方 向 运 
ZJ; d6/dt <0 表 示 向 0 的 负 方 向 运动 。 

(3) E =2mgl ， 摆 锤 运 动 处 于 临界 状态 。 当 其 0 值 对 应 势能 曲线 的 极 大 值 
时 ， 摆 锤 速度 为 零 . 下 一 时 刻 的 运动 具有 不 确定 性 ， 摆 锤 即 可 能 沿 原 运动 方向 
运动 , 也 可 能 改变 运动 方向 . 这 种 情况 下 摆 锤 的 相 轨 迹 为 两 条 对 d9/dt = 0 直线 
Xt PA. TE (0 —nm,d0/dt = 0) 点 相交 的 曲线 . 

这 些 结果 就 是 图 2.17 中 的 曲线 . 

当 单 摆 处 于 第 一 种 运动 状态 时 ， 其 运动 周期 与 最 大 摆 角 有 关 。 经 数值 计算 
可 验证 : 若 摆 角 不 大 于 5 ,在 小 摆 角 (0 之 1) 近似 下 ，sinbgs0,， 运动 可 视 为 简 
谐振 动 ， 其 固有 圆 频 率 为 w = Vg/1 。 若 摆 角 增 大 ， 则 运动 周期 变 长 。 其 关系 如 
图 2.18. 


2.40 
2.35 
2.30 
2.25 
E 20 
2.15 
2.10 
2.05 
2.00 
0 0.2 04 06 0.8 1.0 12. I4 1.6 
Hfi 


图 2.18 单 摆 的 周期 与 最 大 摆 角 的 关系 


下 面 求 (2.11.1) RB, Sy = 0, y2 = a 则 (2.11.1) 式 成 为 
e —y2 
dt (2.11.2) 
dys = 一 二 sin 
dt pM 


计算 程序 分 为 三 部 分 ， 第 一 部 分 画图 2.17 中 的 相 图 。 所 用 的 数据 不 是 解 微 
分 方程 的 结果 ， 而 是 利用 总 能 量 等 于 动能 与 势能 之 和 得 到 


1 de? 
E = — = t= 
m (mi x) + mgl(1-— cos 6) 


dé 2g / E 
Ix eh had ELAN putt ccm 
di 1 (5 + cost) 
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令 。= Ze 则 除了 相差 一 个 常数 因子 之 外 ， 可 以 认为 


- =+vVe-—1+cosé (2.11.3) 
前 面 讨论 的 总 能 量 的 三 种 情况 分 别 对 应 e< 2, e> 2, e = 2 . 每 给 定 一 个 e 
值 ， 就 可 以 画 出 一 条 曲线 . 
程序 的 第 二 部 分 是 画 单 摆 在 不 同 的 初始 位 移 下 所 对 应 的 位 移 曲 线 ( 见 图 
2.19) ， 可 以 看 出 ， 摆 角 越 大 则 周期 越 长 . 改变 初始 条 件 就 能 得 到 不 同 的 结 


15 --- 小 摆 角 
— Kiem 


FE fii 


1.5 - mM ww = 


3 5 6 
时 间 


图 2.19 最 大 摆 角 不 同 的 位 移 曲线 


程序 的 第 三 部 分 是 画图 2.18 中 最 大 摆 角 与 周期 的 关系 .这 里 仍然 使 用 了 指 
4 events ， 当 单 摆 从 正 0 最 大 值 的 一 端 运动 到 另 一 端 (0 为 负 ， 但 绝对 值 最 大 ) 
WEP, 速度 始终 为 负 ， 并 且 从 零 逐 渐 减 小 到 负 的 最 大 值 然后 又 增加 到 零 ， 这 
段 时 间 正 好 是 半 个 周期 ， 所 以 程序 中 用 速度 作为 被 events 判断 的 事件 变量 。 当 
它 为 零 时 , 停止 解 微 分 方程 ， 即 isterminal=1 ; 而 direction=1 表示 速度 从 负 值 增 
WEE, 


4 BAA 
(1) 计算 最 大 摆 角 与 周期 的 关系 能 否 找到 其 它 方法 ? 请 试 一 试 。 
(2) 能 否 利用 微分 方程 的 解 来 画 相 图 ， 请 试 一 试 ， 


5， 参 考 程序 

主 程序 的 文件 名 是 djddb.m . 
%% 第 一 部 分 程序 是 画 相 图 

figure 


axis([-8 8 -2 2]) 
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hold on 
%% 文 字 标 注 ， 说 明 不 同 颜色 的 曲线 所 对 应 的 系统 总 能 量 
plot([4.5,5.2], [0.8,0.8] ,’g’, [4.5,5.2],[0,0],'r’, am. 
[4.5.5.2], [-0.8. -0.8], 5D; 
text(5.3,0.8,'E«2mg1^) ; 
text (5.3,0,/E=2mg1') ; 
text(5.3,-0.8,'E»2mg1); 
xlabel( 0 ^2; 
ylabel('d 6 /dt^2; 
ydot-inline('sqrt (abs (2x(E-1*cos (x))))','x' ,'E) ; YY 公式 (2.11.3) 
e=[3, 2.5, 2, 1.5, 1, 0.5, 0.3, 0.1]; %% 取 不 同 能 量 
for k=1:8 
if k»3 WY 对 应 E«2mgl 
Q{k}=acos (1-e(k)); %% 动 能 为 零 的 点 
X=linspace(-Q{k},Q{k},300); XX 确定 8 角 的 变化 范围 
y=ydot (X,e(k)); %y 相 图 中 曲线 的 纵 坐 标 数 据 
plot (X,y,’g’,X,-y,’g’) WX 利用 对 称 性 画 曲线 
elseif k==3 WX 对 应 E-2mgl 
X-linspace(-2*pi,2*pi,300); 
y=ydot (X,e(k)); 
plot(X,y,’r’,X,-y,’r’) 
else MY 对 应 E»2mgl 
X-linspace(-2*pi,2*pi,300); 
y=ydot (X,e(k)); 
plot(X,y,’b’,X,-y,'b’) 


end 


end 


%% 程 序 第 二 部 分 解 不 同 初始 角度 下 的 微分 方程 
[t1,w1]=ode45('djddbfun’, [0:0.001:6] , [pi/7,0],[ ]); 
[t2,w2]=ode45 ('djddbfun', [0:0.001:6] , [pi/3,0],[ 1); 
figure %%X 画 不 同 角 度 下 的 位 移 曲 线 
plot(t1,w1(:,1),t2,w2(:,1)); 
xlabel( ' 时间“); ylabel( ' $2848 ' 5; 
legend( ' /] ME fg ',' KEM’); 


i} 
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VUE FER DA YEA RABAT NAR 
theta-linspace(pi/360,pi/2,20); 
T=[ 1; 
options-odeset ('Events','on') ; %yY 开 局 
for i-1:20 ; 
[t ,u, event] -ode45 ('djddbfun', [0:0.001:20] , [theta (i),0] , options); 
T=[T,2*t (end)] ; 


ii 


E 件 判断 功能 


end 


figure 
plot (theta,T) 
title( ' JE BI EB IR AR ); 
xlabel( ' #2 ' 5; 
ylabel( ' 周期 '); 
函数 文件 是 一 个 独立 的 文件 ,文件 名 为 djddbfun.m , 
function varargout=djddbfun(t,y, flag) 
switch flag 
case’ ' 
varargout{1}=f(t,y); 
case ‘events’ 
[varargout{1:3}]=events(t,y); 
otherwise 
error(['unknown flag’ " flag " '.']); 


end 


function ydot-f(t,y) 
ydot-[y (2); 
—9.8*sin(y(1))]; 


function [value,isterminal,direction]=events(t,y) 
value-y(2); 
isterminal-1; 


direction=1; 
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2.12 E EHE 


1， 实 验 题目 

如 图 2.20 所 示 , 设 质量 为 m 的 摆 锤 挂 在 劲 度 系数 为 k， 原 长 为 1 的 轻 弹 筑 
上 , 弹 货 的 另 一 端 悬 挂 于 固定 点 O ,系统 静止 自然 下 垂 时 弹簧 长 度 为 1 = 1o 4-722 , 
系统 可 在 过 O 点 的 竖 直 平面 内 自由 摆动 ， 试 研究 摆 锤 的 运动 . 


Vx 
图 2.20 弹簧 摆 的 运动 


2. 实验 目的 和 要 求 

(1) 作出 弹簧 摆 的 模拟 运动 图 像 并 画 出 摆 锤 的 运动 轨迹 . 

(2) 学 习 一 些 作 模拟 动画 的 技巧 ， 如 在 模拟 摆 锤 运动 的 同时 画 出 摆 锤 的 运 
BY PL, FATE Sx HH AR ee as GRE, 并 且 通 过 极 坐标 变换 来 表示 运动 中 的 弹簧 ， 


3， 解 题 分 析 

系统 自由 度 为 2。 以 O 为 极点 ， 坚 直 向 下 的 Oz 轴 为 极 轴 , 建立 极 坐标 系 ， 
如 图 2.20 tas. 7 为 质点 m 到 O 点 距离 ，0 为 Oz 轴 与 弹簧 间 的 夹 角 .。 则 系统 
的 拉 格 朗 日 函数 为 


1 dr\? NEAL 1 
L=T-V= jm LG) +r (55) | 一 | mar cost + Zk © = 10) | (2.12.1) 


由 拉 格 庆 日 方程 可 求 出 系统 的 运动 微分 方程 为 

2 2 

T) +gcosð - (r—14 58) 
d? 2drd0 g 


Pe LLI ino 
de rdtdt we 


上 式 未 作 小 摆 角 近似 ， 因 此 可 用 以 研究 弹簧 摆 的 大 摆 角 运动 ， 但 是 难以 求 出 解 
析 解 。 由 数值 计算 结果 所 画 出 弹 得 摆 的 大 摆 角 运动 轨迹 ， 可 发 现 它 的 运动 情况 
AR E AR. 不作 数值 计算 是 无 法 想象 的 . 


(2.12.2) 
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d dé SENS 
Sy = rye = Toys = 8s =» JU (2.12.2) 式 成 为 


Gio. 

dt = y2 

dy — 2 k mg 
de ctas (nct) 
dus _ 

dt Ya 


UM s = Date 
dt oo Yı ue 


程序 中 解 微分 方程 的 过 程 比 较 简单 ， 主 要 的 技巧 是 在 作 模 拟 动画 上 . 有 两 
点 值得 注意 ， 一 是 模拟 弹簧 的 运动 ， 另 一 点 是 在 模拟 弹簧 运动 的 同时 画 出 轨迹 
图 。 程序 运行 的 结果 如 图 2.22 Pras. 


4. SA 

(1) RE^ BE d SIC E 7 VASE ie BY SB, 试 一 试 . 并 比较 你 的 方法 与 
本 书 介绍 的 方法 的 优 劣 。 

(2) 在 小 摆 角 近似 的 条 件 下 ,方程 能 否 有 人 解析 解 ? 试 加 以 分 析 ， 


5. BA AL 


主 程序 的 文件 名 是 thb.m , 

theta0=pi/10 和 初始 角度 ， 可 设 不 同 的 值 

m= 1; k = 80; g = 9.8; 

LO = 1; hh LO AER RK 

L = LO + n*g/k; A4 L A ee IEA KE 

[t,u1] = ode45('thbfun’, [0:0.005:15], [LO 0 theta0 0],[ ],L,k,m,g); 
[y1,x1] = pol2cart(u1(:,3)5u1(:,1)); 和 将 极 坐 标 换 为 直角 坐标 
yi = -y1; 

figure 


ymax = max(abs(y1)); 


axis([-1.2 1.2 -1.2*ymax 0.2]); 入 设置 坐标 范围 
axis off 

title( ' JR EE JE ', ‘fontsize’, 14) 

hold on; 

R =0.055 ; 和 设置 弹簧 半径 


yy = -L0:0.01:0; 
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xx = R*sin(yy./LO*30*pi); VUE iE E d ARAEGRGE Eu Eu € 
[a,r] = cart2pol(xx,yy); AARE E EH fA AA AR ie Bk AR s 

a =a + theta0; WX 通过 极 角 的 转动 将 垂直 位 置 的 弹 移 转 到 初始 位 置 
[xx,yy] = pol2cart(a,r); %% 将 初始 位 置 弹 移 的 极 坐 标 换 回 直角 坐标 
line([-1 1],[0 0],'color','r','linewidth',2) 4A E 横 杆 


ball = line(xx(1),yy(1),'color','r','marker','.',... 


'markersize!,70,'erasemode','xor'); Vg) FE BR 
ball2 = line(xx(1),yy(1),'color’, [0.5 0.51 0.6],'"linestyle','-',... 
'linewidth’',1.3,'’erasemode’,'none’) ; %y 画 摆 球 的 运动 轨迹 
spring = line(xx,yy,'color','g,'linewidth',2,... 
'erasemode', 'xor/); WERE 


pause(0.5) 


fori-1: length(t) VIR a 3E E FE Wy 38 zl 
yy = -ul(i,1) : 0.01: 0; 
xx = R*sin(yy./ul(i,1)*30*pi); 


[a,r] = cart2pol(xx,yy); 
a = a + ul(i,3); 
[xx,yyl = pol2cart(a,r); 
set(ball,'XData',x1(i),'YData',y1(i)); 
set(ball2,'XData',x1(i),'YData',y1(i)); 
set(spring,'XData',xx,'YData',yy) ; 
drawnow; 
end 
函数 文件 是 一 个 独立 的 文件 ,文件 名 为 thbfun.m , 
function F = thbfun(t,u,flag,l,k,m,g) 
F = [u(2); 
u(1)*u(4)^2 + g*cos(u(3)) - k/m*(u(1) - 1 + m*g/k); 
u(4); 
-2xu(2)*u(4)/u(1) - g*sin(u(3))/u(1)]; 
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2.13 TAB 


1l. 实验 题目 

一 个 单 摆 齿 挂 于 可 沿 水 平 光滑 轨道 滑动 的 滑 块 上 ， 如 图 2.21 Bras. 滑 块 质 
量 为 m1 ， 单 摆 的 杆 长 为 1， 摆 锤 质量 为 m2 ， 整 个 系统 可 在 同一 竖 直 平面 内 运 
动 . 试 研究 整个 系统 的 运动 ， 


图 2.21 滑动 摆 的 运动 


2. 实验 目的 和 要 求 
(1) 研究 滑动 摆 的 运动 情况 并 作出 滑动 摆 的 模拟 运动 图 像 . 
(2) 学 习 在 屏幕 上 设置 图 形 窗口 的 不 同位 置 . 


3， 解 题 分 析 
沿 直线 水 平 轨道 建立 Oz 轴 ， 以 x 表示 滑 块 在 轨道 上 的 位 置 ， 以 9 表示 摆 
杆 与 竖 直 线 的 夹 角 。 则 系统 的 拉 格 朗 日 函数 为 


1 dey? 1 /db dz db 
b-cT-VESUM - ma) ($) + mal (F) + mal-g gg cos + magl cos 
(2.13.1) 
S Mo ， 由 拉 格 朗 日 方程 得 系统 的 运动 微分 方程 
1 2 
[dgN g. 
de —M cos sin 0 ($) — n 
2 4 AMoedü Fn 
dt Ly : (2.13.2) 
; ; dé 
guo Macosdsina + MIsing (S) 
d? 1— M cos? 0 


上 式 未 作 小 摆 角 近似 ， 可 研究 大 摆 角 运动 情况 . 在 小 摆 角 情况 下 ， sn6m 
0，cos0 z 1, sin6d6/dt 项 为 高 阶 项 可 略 去 ， 可 得 线性 化 的 微 振动 方程 
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di? mı l 
d'y mə 
— = — g0 
dt? mi? 
A dé dz » Pp 3E TIE AN Re 
Sy = 9, y2 = dp TDT 则 (2.13.2) 式 化 为 四 个 一 阶 微分 方程 
dps _ 
dt y2 
dy» —Mys cosy; sin yı 一 7 siny 
d | 1— M cos? yı 
dys _ 
dt YA 
dys | Mgcosyi siny + Mly3 sin yı 
dí -— 1— M cos? yı 


在 程序 中 为 了 使 滑动 摆 的 模拟 运动 图 和 滑 块 与 摆 锤 的 位 移 曲线 图 能 出 现在 
监视 器 屏幕 上 的 不 同位 置 ， 用 指令 set 对 图 形 窗口 的 位 置 进行 了 设置 . 在 该 语 
名 中， 指令 gef 表示 获取 当前 图 形 窗口 的 句柄 ， 指 令 units 是 设置 位 置 数据 的 音 
位 ,指令 normalized 表示 使 用 归 一 化 坐标 ， 即 屏幕 的 左下 角 为 [0, 0], 屏幕 的 右上 
角 为 [L 1]. 指令 position 是 用 坐标 表示 图 形 窗口 的 位 置 ， 其 后 的 4 个 数据 分 别 
表示 图 形 窗口 左下 角 的 模 坐 标 与 纵 坐 标 、 图 形 窗口 的 宽 与 高 ,程序 运行 结果 如 


图 2.22 所 示 。 


4. 


思考 题 


—0.8 


E os 1 15 2 25 3 35 B -]s 
时 间 
图 2.22 滑 块 与 摆 锤 的 位 移 曲 线 


按照 以 下 情况 ， 对 于 滑动 摆设 置 不 同 的 初始 条 件 : 
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(1) 滑 块 与 摆 锤 的 位 移 不 为 零 ， 但 初速 度 都 为 零 ; 

(2) 滑 块 与 摆 锤 的 位 移 为 零 ， 但 滑 块 速度 不 为 零 ， 摆 锤 的 速度 为 零 ; 

(3) 滑 块 与 摆 锤 的 位 移 为 零 ， 但 滑 块 的 速度 为 零 ， 摆 锤 的 速度 为 零 。 
观察 滑动 摆 的 运动 有 何不 同 ,同时 注意 滑 块 及 摆 锤 的 初始 位 置 对 运动 有 什么 影 
响 ? 注意 此 时 在 程序 中 要 重新 设置 坐标 轴 的 范围 及 横 杆 的 长 度 . 


5. 参考 程序 

主 程序 的 文件 名 是 hdb.m , 

g=9.8;m1=4;m2=2;1=1; 

[t,y]=ode45 ('hdbfun', [0:0.001:5] , [pi/4,0,... 
-1*cos(pi/4)*2/(442),0]1,[ 1, m1, m2, g, 1); 

figure(1) %%X 下 面 先 设 定 图 形 窗口 的 位 置 

set(gcf,'unit’,'normalized’,'position’, [0.03 0.1 0.5 0.5]); 


cla; 

plot(t,y(:,1),t,y(:,3)) AAE T 图 形 
xlabel( ' WHE)’ ); 

ylabel( ' MH ' ); 

legend( ' JEE ', ' eR! 5 


figure(2) 

set (gcf ,'unit','normalized','position',[0.5 0.4 0.5 0.5]; 
cla; 

axis([-0.6 0.6 -1 0.2]); 

axis off 


axis equal 


hold on 

yl--1.*cos(y(:,1)); xizy(:,3)*1.*sin(y(C:,1)); LAER 的 坐标 
xiani=line([-0.6,0.6], [0,0] ,/linewidth’,2); %Y 画 横 线 
xian2=line([0,0],[0,-1],’linewidth’,2,’linestyle’,’:'); LLE UE 2x 


whet, WR RAO DE 
gan-line([y(1,3) ,x1(1)] , [0,y1(1)],’color’,’y’,’linestyle’,’-',... 
'linewidth', 3, 'erasemode','xor/); 
kuai = line([y(1,3)-0.05,y(1,3)*0.05], [0,0] ,'color', /b', ... 


II 


'linestyle', , ‘linewidth’, 15, 'erasemode','xor'); 


Fs. ree 
dl 


qiu-line(x1(1),y1(1),'color','r','marker', markersize’,... 


50,'’erasemode’, ‘xor’); 
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for i=1:5001 hh 作 动画 
set(gan,’xdata’, [y(i,3),x1(i)],'ydata’, [0,y1(i)]); 
set (kuai,'xdata’, [y(i,3)-0.05,y(i,3)+0.05] ,'ydata', [0,0]); 
set (qiu,’xdata’,x1(i),'ydata’,y1(i)); 
drawnow; 
end 
函数 文件 是 一 个 独立 的 文件 ,文件 名 为 hdbfun.m , 
function ydot-hdbfun(t,y,flag,mi,m2,g,1) 
M2m2/ (m14m2) ; 
ydot-[y(2); 
(-M*sin(y(1))*cos(y(1))*y(2)^2-... 
g/1*sin(y(1)))/(1-M*cos(y(1))^2)5; 
y(4); 
(M*g*sin(y(1))*cos(y(1))2M*1l*... 
sin(y(1))*y(2)7^2)/(1-M*cos(y(1))720]; 
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2.14 [SEHE 


1l. 实验 题目 

法 国 物 理学 家 傅 科 于 1851 年 在 巴黎 万 圣 砍 内 的 拱 项 上 悬挂 了 一 个 摆 长 67 
m ， 摆 锤 质量 为 28 kg 的 单 摆 。 该 单 摆 摆 动 周期 约 为 16s . 实验 发 现 该 摆 摆 平 
面 绕 竖 直 轴 作 顺 时 针 转 动 ( 由 上 而 下 看 )， 转 动 周期 约 32 h ， 这 就 是 著名 的 健 
科 摆 实验 . 这 个 实验 无 需 依赖 地 球 以 外 的 物体 ， 就 能 直观 地 展示 地 球 自转 的 存 
在 ， 因 此 至 今 仍 受到 重视 . 本 题目 研究 倩 科 摆 摆 锤 在 水 平面 内 的 轨迹 . 设 摆 长 
为 1 ， 摆 锤 质量 为 由 , BETH A Ah. 


2. 实验 目 的 和 要 求 

(1) 研究 传 科 摆 在 水 平面 内 的 运动 并 画 出 摆 锤 在 水 平面 内 的 运动 轨迹 . 
(2) 研究 纬度 ， 初 始 条 件 对 传 科 摆 运 动 轨迹 的 影响 . 

(3) 学 习 指令 input 的 用 法 ， 学 会 在 程序 运行 中 从 键盘 向 程序 输入 参数 . 


3， 解 题 分 析 

由 于 摆 长 很 长 ， 当 摆 作 小 角度 摆动 时 ， 可 认为 摆 锤 在 水 平面 内 运动 。 以 摆 
锤 平衡 位 置 为 原点 O ，Ozx 指向 正 南面 ，Oy 指向 正 东 面 ， 建 立 直角 坐标 系 . E 
锤 受 重 力 、 科 氏 力 和 摆 线 张力 Fr 作用 .。 与 实验 28 落体 偏 东 比 较 ， 摆 锤 受 力 仅 
多 出 摆 线 张力 Fr ， 忽 略 摆 锤 滑 坚 直方 向 的 运动 ， 且 知 Pr m mg. ， 可 得 出 运动 
微分 方程 为 


2 

ce - 320 sind + $a =0 

dt (2.14.1) 
d?y 


d 
Ta tw sind + Ty =0 


这 里 g 取 9.8，1 取 67，w 为 地 球 自转 角速度 。 该 方程 为 线性 微分 方程 组 ， 可 
求解 析 解 并 分 析 摆 锤 的 运动 ， 但 求解 过 程 较 为 烦琐 . 

数值 求解 该 方程 的 程序 极 简单 ,充分 体现 了 MATLAB 的 优点 ,在 此 不 再 令 
述 . 注意 在 程序 中 为 了 使 摆平 面 转动 效果 较为 明显 , 适当 放大 了 地 球 自转 角 速 
BE. 为 了 研究 纬度 及 初始 条 件 对 摆 锤 运动 轨迹 的 影响 , 运用 了 指令 input. 在 程 
序 运行 后 ， 根 据 指令 窗口 的 提示 ， 先 输入 纬度 值 ， 范 围 可 在 -90 ~ 90 . 由 于 纬 
度 是 以 角度 为 单位 ， 故 在 程序 中 要 将 它 换算 为 弧度 。 然后 再 依次 输入 在 初始 时 
刻 摆 锤 在 x 方向 的 位 置 与 速度 ,在 y 方 向 的 位 置 与 速度 ， 并 将 这 4 个 数 用 方 括 
号 括 起 来 . 输入 时 可 选择 以 下 几 种 情况 ， 如 初始 位 置 不 为 零 但 初始 速度 为 零 ， 
初始 位 置 为 零 但 初始 速度 不 为 零 ， 以 及 初始 位 置 及 初始 速度 都 不 为 零 。 然 后 观 
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察 摆 锤 运 动 轨迹 的 差别 . 图 2.23 是 入 = 30, [x0, vx0, y0, vy0] = [ 4, 0, 0, 0] BF, 
程序 运行 的 结 


图 2.23 依 科 摆 的 运动 轨迹 


4 SX 
傅 科 摆 实 验 能 否 做 成 三 维 的 模拟 动画 ? 试 试看 。 


5. 参考 程序 
主 程序 的 文件 名 是 fkb.m . 
a-input( 请 输入 纬度 ="); 
q-input(. 请 按 此 格式 依次 输入 [x0,vx0,y0,vy0]="); 
c=a*pi/180; 
[t,x]-ode45 ('fkbfun', [(0:0.02:100],q,[ ],c); 
xlabel (‘x’); 
ylabel(‘y’); 
comet (x(:,1),x(:,3)) 
BS BCC Fe — rd SERI SCTE, CE DS fkbfun.m , 
function tt-fkb(t,x,flag,c) 
a-(2*pi*sin(c))/100; 
b-9.8/67; 
tt-[x (2); 

2*a*x (4) -b*x(1) ; 

x(4); 

-2xax*x(2)-bx*xx(3)]; 
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2.15 Sx $E PEA WE 


1l. 实验 题目 
两 个 摆 长 为 1! 摆 锤 质量 为 mAIRE, FC EE eM OUR, 如 图 2.24 所 
示 。 两 个 摆 只 能 在 同一 坚 直 平面 内 运动 。 研 究 它们 的 运动 。 


KIF 


JY 
ey 


4 4 1 
-20 “10 0 10 20 


图 2.24 Be geve He AY BLE 图 2.25 B &EXUZ BE SI 
2. 实验 目的 和 要 求 
画 出 双 摆 的 位 移 曲线 并 用 动画 模拟 它们 的 运动 。 


3， 解 题 分 析 
以 摆 锤 偏离 平衡 位 置 的 摆 角 和 和 9 为 广义 坐标 ， 系统 的 拉 格 天 日 函数 为 


L = m? (s 2) + iml? (v 2) + ml? 98.392 cos(8) — 01)+ 
mgl(2 cos 61 + cos 92) (2.15.1) 
由 拉 格 朗 日 方程 得 
5 2 
a + ee cos(g — 61) - 1 ($) sin(0» — 61) + 2g sin ð, = 0 C. 
2 
ae + T di cos(g — 61) +1 (sy sin(0» — 61) + g sin» = 0 (2.15.3) 


由 方程 (2.15.3) 得 


d?8s d26, dM? . ; 
la = 一 /一 一 一 ETE cos(05 一 01) —1l (5) sin(05 = 01) =, g sin bə (2.15.4) 
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将 方程 (2.15.4) 代入 方程 (2.15.2) 得 


d201 1 do, 2 
| in(02 — 0 0. — 0 
dt? 21 — l cos? (65 — 61) ( di ) sin(65 1) cos(05 1)+ 
db M? . 
g sin» cos(05 — 61) +1 E sin(05 — 01) — 2g sin 6, (2.15.5) 
由 方程 (2.15.2) 得 
d?6, 1 d20» 1 d6» 2 . 
a8 = um cos(05 — 61) + 5! tj sin(@2 — 01) — g sin 01 (2.15.6) 


将 方程 (2.15.6) 代入 方程 (2.15.3) 得 


2 1 j 
Th rn |- t3 sin(g — 61) cos(@2 — 01)+ 


21 — lcos?(05 — 01) dt 
dg l 
2g sin 0 cos(05 — 01) — 2l ra sin(05 — 01) — 2g sin 0» (2.15.7) 


S yi = sae = W ys = 0y = W, HIT (2.15.5) 和 方程 (2.15.7) 得 


du 

dt y2 

dy» 1 v 

—— = — — |ly sin(ya — yı) cos(ya — Y1)+ 

dt 21 — lcos (ya — y1) [ly sin(ys — y1) cos(ys — yı) 
gsin ys cos(ys — y1) + ly? sin(ys — y1) — 2g sin y1| 

ds _ 

dt Ya 

dy4 1 2. 

— = 5, _ | - yi sin(ys — 31) cos(ya — yı) + 

dt 2l 一 l cos? (ya — y1) [ yi sin(ys — yı) cos(ya — yı) 


2g sin yı cos(ys — 1) — 2ly3 sin(ys — yı) — 2g sin y3] 


在 程序 中 仿照 实验 2:13 滑动 摆 的 做 法 ， 在 用 动画 表示 双 摆 的 运动 的 同时 ， 
也 在 监视 器 屏幕 上 显示 双 摆 的 位 移 曲线 至 于 双 摆 运 动 时 的 轨迹 的 画 法 与 实验 
2.12 的 弹簧 摆 的 画 法 相同 .图 2.25 和 图 2.26 是 程序 运行 的 结果 ， 改 变 初 始 条 件 
会 得 到 不 同 的 曲线 : 
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T 


=- 一 -上 面 的 摆 
一 一 下面 的 摊 


Hifi 


0 5 10 15 20 25 30 
时 间 


图 2.26 两 个 摆 的 位 移 曲 线 


4， 思 考题 
如 果 希 户 模 拟 绞 链 连 接 的 双 摆 的 微 振动 下 的 两 种 简 正 模 的 运动 状态 ,应 该 
如 何 设置 初始 条 件 ? 通 过 改变 程序 中 的 初始 条 件 后 运行 程序 来 验证 你 的 想法 。 


5. 参考 程序 
主 程序 的 文件 名 是 jjsb.m 。 


1=9; 

[t ,u] =ode45('j jsbfun', [0:0.01:30],[0.5,0.2,0.1,2.8],[],1); 
yi--1*cos(u(:,1)); hhit FBR 1 的 坐标 
xi=l*sin(u(:,1)); 

y2-yi-1*cos(u(:,3)); Whit FBR 2 的 坐标 


x2-xi4l*sin(u(:,3)); 


figure(1) 
set (gcf ,'unit','normalized','position',... 
[0.03 0.1 0.5 0.51); 入 设置 窗口 坐标 
cla; 
plot(t,u(:,1),’g’,t,u(:,3),’r’) %Y 画 位 移 曲 线 
xlabel(' 时 间 );ylabel(’ 摆 角 5; 
legend 上 面 的 摆 ',' Pm 9; 
pause(0.5) 
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figure(2) 

set (gcf ,'unit','normalized','position',... 
[0.5 0.4 0.5 0.5]); %% 设 置 窗口 坐标 

cla; 


axis([-10 10 -20 20]) 
axis equal 
hold on 
a10=line([-9,9] , [0,0],’color’,’k’,’linewidth’,3.5); hhh He FE 
‰y 下 面 的 循环 语 名 是 画 横 粱 顶部 的 虚线 
a20=linspace(-9,9,36); 
for i=1:35 
a30=(a20(i)+a20(it+1))/2; 
plot([a20(i),a30],[0,040.5] ,'color','b',... 
'linestyle','-','linewidth',1); 


end 
AADA T ADR US 8 
ballia-line(x1(1),y1(1),'color', [0.5 0.6 0.4] ,"linestyle',... 
!-! ,'1inewidth',1,'erasemode','none!) ; 
balli-line(x1(1),y1(1),'color','r','marker','.',... 
'markersize!,40,'erasemode','xor'); 
ball2a-line(x2(1),y2(1) ,'color', [0.5 0.6 0.4],"linestyle',... 
!-! ,'linewidth',1,'erasemode','none!); 
ball2-1line(x2(1),y2(1),'color','r','marker','.',... 
'markersize!,40,'erasemode','xor'); 
gani-line([0,x1(1)], [0, y1(12] ,'color','g',... 
'linewidth',2,'erasemode','xor'); 
gan2-line([x1(1) ,x2(1)], [y1(1) ,y2(1)],’color’,’g’,... 


'linewidth',2,'erasemode','xor'); 


for i-1:length(u) 
set (ball1,’xdata’,x1(i),'ydata’,y1(i)); 
set(ball2,'xdata',x2(i),'ydata',y2(i)); 
set(ballia,'xdata',x1(i),'ydata',y1(i)); 
set(ball2a,'xdata',x2(i),'ydata',y2(i)); 
set (gan1,'xdata', [0,x1(i)],'ydata', [0,y1(i)]); 
set (gan2,'xdata' , [x1(1) ,x2(i)],'ydata’, [y1(i) ,y2(i)]); 
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drawnow 
end 
函数 文件 是 一 个 独立 的 文件 ,文件 名 为 jjsbfun.m , 
function ydot=jjsbfun(t,y,flag,1) 
g=9.8; 
ydot=[y (2) ; 
(1*y (2) *2*sin(y(3)-y(1))*cos(y(3)-y(1))... 


+g*sin(y(3))*cos(y(3)-y(1))+ 1*y(4)^2*sin(y(3)-y(1))... 
-2*xg*sin(y(1)))/ (2*1-1* (cos (y(3)-y(1)))72); 
y(4); 
(-1*y (4) ^2*sin(y(3)-y(1)) *cosCy (3) -y (1)) *... 
2*g*sin(y(1))*cos(y(3)-y (1)) -2*1*y (2) *2*sin(y(3)-y(1))... 
-2*g*sin(y(3)))/(2x1-1*(cos(y(3)-y(10)))^2)1; 
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2.16 SR RIERA Sz 


L 实验 题目 

研究 由 弹簧 耦合 的 两 个 相同 单 摆 的 运动 。 耦合 摆 由 两 个 相同 的 单 摆 和 一 个 
连接 两 摆 锤 的 弹簧 组 成 ， 如 图 2.27 所 示 。 弹簧 原 长 a， 等 于 摆 的 两 个 晤 挂 点 之 
HIER, MERRY k. BEREN m, EIKAI, FEREARE. 设 
两 摆 均 在 同一 竖 直 平面 内 摆动 . 


nm 


图 2.27 弹簧 连接 的 耦合 摆 


2， 实 验 目的 和 要 求 

(1) 在 系统 作 小 摆 角 微 振动 情况 下 , 求 系统 的 两 个 简 正 模 和 一 般 振动 ， 对 结 
果 做 动画 模拟 . 

(2) 作出 摆 的 位 移 曲 线 ， 观 察 耦合 摆 在 一 般 振动 下 出 现 的 振幅 调制 现象 。 

(3) 学 习 用 矩阵 解 本 征 值 问题 . 


3， 解 题 分 析 
以 摆 杆 和 坚 直 方向 的 夹 角 和 ， 02 为 广义 坐标 ， 系 统 的 拉 格 朗 日 函数 为 


L=T-V 
dé, V? dh V? 
Cnm OU | 
dt dt 


1 2 
| (a-+ sind — Isin 01)? + (cos — Leos th)? — a + 


1 
= sm 


mgl(cos 61 + cos 62) (2.16.1) 
M 0; «1,05 1 时 ， 作 级 数 展开 


_1 a2|/d\ , (dé. 
r= jt | (SE) + ($e) 
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-ZHP - 04)? +mgl (2-2-2) (2.16.2) 
代入 拉 格 朗 日 方程 得 到 系统 微 振动 的 运动 微分 方程 为 


d201 
ml ig + kl01 + mg — klə = 0 


: (2.16.3) 
d?8; 
ml kl + mgb — kl, — 0 


ES 
01 = Ai cos(wt+y), 62 = As cos(wt + v) 
代入 上 式 可 求 出 系统 的 简 正 频率 为 


a (2.16.4) 


W2 = + = 
与 w 相对 应 的 简 正 振动 方程 为 
04 = 411cos(wit 十 oO1) (2.16.5) 
05 = 411cos (wit + y1) 
与 w 相对 应 的 简 正 振动 方程 为 
01 = A12 cos (wat + 2) (2.16.6) 
0» = — A12» cos (wot + p2) 
(2.16.3) 式 的 通 解 (对 应 耦合 摆 的 一 般 振 动 ) 为 
6, = Aji cos (wit + qi) + Ai2 cos (wot + p2) (2.16.7) 
85 = A11 cos (wit + q1) — Ai cos (wot + p2) 


由 (2.16.7) 式 可 见 , 每 个 单 摆 都 同时 参与 两 个 简 谐振 动 , 合 振动 情况 较为 复 
， 下 面 我 们 在 一 个 特定 的 初始 条 件 下 作 一 些 解析 的 讨论 . 
如 果 初 始 时 ， 两 个 摆 的 初速 均 为 零 ， 一 个 摆 处 于 平衡 位 置 ， 男 一 个 摆 偏 离 
dé, ds 


平衡 位 置 ， 即 上 =0 时 ，b = O10, 062 =0, ud ^d Ve 则 


bu 
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(2.16.7) 式 变 成 


1 
0 = 50 (cos wit + cos wet) 


: (2.16.8) 
0, = gfo (cos wit — cos wat) 
#4 
| Wi + We 5 | We - Wy 
a= 2 ^ b 二 2 
则 (2.16.8) 式 可 写成 
(2.16.9) 


04 = (Oo cos wt) COS Wat | 


05 = (Oo sin wot) sin wat 


这 种 情况 下 每 个 摆 均 发 生 低频 (wo) 振动 对 高 频 (wo) 振动 的 调制 现象 ， 当 
k<mif, wi 与 ws 相差 微小 Who 2 wy. BPH “FA” HMR. “tA” HM 
象 在 普通 物理 力学 中 均 有 讨论 ， 现 在 我 们 可 以 借助 位 移 曲 线 和 运动 模拟 图 像 ， 
对 “ 拍 ” 的 现象 有 一 个 “直观 ”的 了 解 . 图 2.28 就 显示 了 这 种 “ 拍 ” 的 现象 . 


弹簧 双 摆 的 一 般 振动 


Es 
0 50 100 150 200 250 
时 间 
0.04 
0.02 
N 
ES 0 
-0.02 
-0.04 
0 50 100 150 200 250 
时 间 


图 2.28 弹簧 连接 的 耦合 摆 的 位 移 曲线 


现在 用 MATALB 的 矩阵 运算 切 能 来 解 方程 (2.16.3), © 


x 
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则 方程 (2.16.3) nf 5 y ; 
PIX SX-0 (2.16.10) 


AX HB EE S — AP 的 本 征 值 二 和 本 征 矢 量 M， 则 地 和 Mi 


/ 0 
M x*PxM = 


0 1 


| L=M *S*M -= 


考虑 到 MxM 是 对 角 和 矩阵 ， 得 到 


2 
M *«Px Mx M (SX M * S Mx M x*X=0 


dp 


zl 1 
Z= | | =M xX (2.16.11) 
得 到 


这 是 两 个 独立 的 方程 qt 
ETE D 21 — 0 (2.16.12a) 
d? z5 
dt? 


4 wh = das ud = 入 则 方程 (2.16.12a) 和 方程 (2.16.12b) 的 解 可 以 写成 


+ 222 = 0 (2.16.12b) 


zı = Aicos(wit+ q1) (2.16.13a) 


29 = Ao cos(wat + q3) (2.16.13b) 


其 中 的 常数 Al, vi. Ao, v2 由 初始 条 件 决定 ， 而 方程 (2.16.10) 的 解 为 式 (2.16.11) 
的 道 变换 


D 


X=inv(M )*Z=M«Z (2.16.14) 
即 是 
6, = M(1,1)z + M(1,2)z2 
= M(1,1) Aj cos(wit + q1) + M(1, 2) A» cos(wat + q2) (2.16.15) 
6; = M(2, 1)z1 + M (2, 2)% 
= M(2,1) A; cos(wit + p1) + M(2, 2) As cos(wat + p2) (2.16.16) 
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以 上 就 是 程序 中 求解 弹簧 连接 的 耦合 摆 微 振动 的 思路 , 所 用 的 符号 也 基本 相 
同 ,考虑 到 有 两 种 简 正 模式 的 振动 和 一 种 一 般 振动 , 在 式 (2.16.15 ) 和 式 ( 2.16.16 ) 
中 可 以 令 A =[ 0, 0.02, 0.02 ], A2 = [0.03, 0, —0.03 ], 每 一 组 41(7), 42(7), 3 = 1,2,3 
代表 一 种 振动 模式 , 然后 将 这 些 结 果 做 成 动画 , 为 了 显示 图 2.28 中 的 “ 拍 ”， 需 
要 适当 加 长 解 方程 的 作 动画 的 时 间 ， 读 者 可 以 自行 改变 程序 中 有 关 数 值 。 


4. BAR 
改变 A, Ao 的 值 ， 会 对 “ 拍 ” 产生 什么 影响 ? 


5. 参考 程序 

主 程序 的 文件 名 是 thsb.m , 

1=15; g=9.8; m=80; k=200; h=0.6; 
S=[g/1+k/m, -k/m; -k/m, g/1+k/m]; 
P=[1, 0; 0, 1]; 


[M,L]=eig(S,P) ‰y 求 本 征 矢 量 和 本 征 值 

OL=sqrt (L) AAR A AE ES 

A1=[0;0.02;0.02]; A2=[0.03;0;-0.03]; phi1=0; phi2=0; 
t=0:0.04:150; 


str(i)-' 弹簧 双 摆 的 反 相 振动 -- 简 正 模 1; 
str(2)-' 弹 得 双 摆 的 同 相 振 动 -- 简 正 模 2; 
str(3)-' 弹簧 双 摆 的 一 般 振 动 “; 


for j=1:3 和 三 种 不 同 的 振动 情况 
thetai-M(1,1)*A1(j)*cos(OL(1,1)*t*phii)... 
*M(1,2)*A2(j)*cos(O0L(2,2) *t*phi2) ; 
theta2=M(2,1)*A1(j)*cos(OL(1,1)*t+phil)... 
+M(2,2)*A2(j) *cos(OL(2,2)*t+phi2) ; 


figure(1) 

set (gcf ,'unit','normalized','position',[0.03 0.1 0.5 0.5]); 
cla; 

subplot (2,1,1) 

axis([0 20 -0.3 0.3]) 

plot(t,thetail) 

xlabel(' 时 间 ^; 

ylabel(' #2 1’); 
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title(str {j D; 
subplot (2,1,2) 
axis([0 20 -0.3 0.3]) 
plot(t,theta2) 
xlabel(’ 时 间 '); 
ylabel(’ #2 ff 25; 
pause(0.5) 


figure(2) 

set (gcf ,'unit','normalized','position',[0.5 0.45 0.5 0.5]); 
cla; 

axis([-15 15 -8 10]) 

title(str{j}); 

hold on 


%y% 画 横梁 和 小 斜 线 
a10-line([-9,9] , [9,9] ,'color','k','linestyle','-','linewidth',3.5); 
a20=linspace(-9,9,36) ; 
for 1=1:35 
a30=(a20(i)+a20(it1))/2; 
plot([a20(i),a30],[9,9.5] ,'color','b',... 
'linestyle','-','linewidth',1); 
end 
和 计算 两 小 球 的 直角 坐标 
x1=-5+l*sin(thetal); 
y1=9-1*cos(theta1); 
x2=5+1*sin(theta2) ; 
y2-9-1*cos(theta2); 


AL EK BR EE 
al=linspace(x1(1) ,x2(1) ,220) ; 
b1=0.7*sin((a1-x1(1))*40/(x2(1)-x1(1)))+y2(1) ; 


tani-line(a1,b1,'color','m','linestyle','-',... 


'erasemode' ,'xor' ,'linewidth',1.5); 
yuani=line([-5,x1(1)],[9,y1(1)],'color’,'b’,’erasemode’,'xor’,... 


'linestyle','-','linewidth',2.5); 
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yuan2-line([5,x2(1)1, [9, y2(1)] ,'color','b/,'erasemode','xor',... 
'linestyle','-','linewidth',2.5); 
qiui-line(x1(1),y1(1),'color','g','erasemode','xor',... 


'marker','.',' 


,markersize', 60); 
qiu2-line(x2(1),y2(1),'color','g','erasemode','xor',... 


'marker','.',' 


,markersize', 60); 
n-length(t); 
for i-1:n 
set(yuanl ,'xdata', [-5,x1(i)],'ydata', [9, y1(1)1) ; 
set (yuan2,’xdata’,[5,x2(i)],’ydata’,[9,y2(i)]); 
set (qiul,'xdata’,x1(i) ,'ydata’,y1(i)); 
set (qiu2,'xdata’,x2(i) ,'ydata’,y2(i)); 

AAF 1E 2x BK EE 
al-linspace(x1(i),x2(i),220); 
b1-0.7*sin((ai-x1(i))*40/(x2(i)-x1(i)))*y1(i); 
set(tani,'xdata',a1,'ydata',b1); 


drawnow; 
end 


end 


217 三 自由 度 系 统 的 微 振动 173 


2.17 三 自由 度 系统 的 微 振动 
1， 实 验 题目 


研究 两 个 弹簧 连接 三 个 质点 组 成 的 一 维 振动 系统 的 运动 . 如 图 2.29 所 示 ， 
其 中 弹 得 的 偏 强 系数 均 为 ,中 间 的 质点 的 质量 为 mo, 两 端 质 点 的 质量 都 为 mm . 


图 2.29 三 自由 度 系统 的 微 振 动 


2. 实验 目 的 和 要 求 

(1) 用 三 种 不 同 的 方法 即 和 矩阵 方法 、 快 速 傅 里 叶 变 换 法 和 拉 普 拉 斯 变换 法 
分 别 求 出 振动 系统 的 简 正 频率 . 从 而 证 明 这 三 种 方法 所 得 的 结果 是 相同 的 . 本 
题 将 这 三 种 方法 放 在 一 起 ， 通 过 对 比 ， 读 者 可 以 了 解 它们 之 间 的 内 在 联系 . 

(2) 将 拉 普 拉 斯 变换 法 得 出 的 系统 的 运动 微分 方程 的 解析 解 做 成 动画 模拟 ， 

(3) 学 习 快 速 傅 里 叶 变换 法 和 拉 普 拉 斯 变换 法 的 用 法 . 


3， 解 题 分 析 
以 图 2.29 中 所 示 的 三 个 质点 相对 自身 平衡 位 置 的 位 移 mi, 22, zs 作为 三 自 
由 度 振 动 系统 的 广义 坐标 .。 用 拉 格 明日 方法 ， 可 得 出 系统 的 运动 微分 方程 : 


2 
mo + kzı — kz = 0 
2 
mo 学 — kzı + 2kzə — kzz = 0 (2.17.1) 
2 
mT — ka + kes =0 
方程 组 的 矩阵 形式 为 4 
其 中 
m 0 0 Tı k —k 0 
S=| 0 me 0 X=| z| K=| -k 2k k 
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设 解 的 形式 为 
zı = A, cos (wt + y) 


$5 = Ay cos (wt + q) 
$3 = Aa cos (wt + q) 
代入 (2.17.1) 式 后 ， 得 矩阵 形式 的 方程 


(K—- Sw)A=0 


其 中 


(2.17.4) 式 即 
(k =. mw?) Ay = kA» = 0 


—kAy + (2k rmn Mw) Ao x k As =0 


—kA» + (k = mw?) A3 =0 


上 面 的 方程 组 要 求 
K-Sw’?=0 
即 
k — mw? —k 0 
一 天 2k — Mo? 一 天 zu 
—k 0 k —mw? 
由 此 得 到 三 个 简 正 频率 
六 -人 
m 


(2.17.3) 


(2.17.4) 


(2.17.5) 


(2.17.6) 


(2.17.7) 


(2.17.8) 


将 简 正 频率 分 别 代 回 (2.17.5) 式 ， 可 得 到 三 个 与 之 对 应 的 本 征 矢 基 . 
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对 ww = /k/m, BER BH 


411 Aii 
A=] Aa |= 0 (2.17.9) 
431 一 411 


Anu, An, Asi 的 右 脚 码 的 左边 数字 为 质点 的 编号 ， 右边 数字 为 简 正 频率 的 纺 
号 . 这 三 个 量 分 别 是 与 oi 对 应 的 简 正 模式 的 三 个 质点 的 振幅 . 简 正 模式 的 振动 
方程 为 

X1 = Ag cos(wit + y1) 

E0 (2.17.10) 


v3 = 一 411 cos(wit di (1) 


对 wo —0, 本 征 矢 量 为 


A» = Apso -= A1» (2.17.11) 


简 正 振动 的 方程 为 


r= A12 COS p» 
T2 = A12 COS p» (2.17.12) 
X3 = A12 COS p» 


各 质点 位 移 相 同 ， 系 统 作 纯 平 动 . 


k 2 4 
对 ws = zoe) ,本 征 矢量 为 
m M 
ETE Ais 
2 
As =| As |= -F As (2.17.13) 
Ass Aj3 


进而 得 到 第 三 个 简 正 模式 的 运动 学 方程 
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zı = 413 cos(wst + ys) 
22 = -ZM Ais cos(w3t + p3) (2.17.14) 
23 = A13 cos(w3t + p3) 
式 (2.17.10) 、 式 (2.17.12) 和 式 (2.17.14) 描绘 出 三 个 简 正 模式 的 运动 情况 . 
系统 的 运动 是 三 个 简 正 模式 运动 的 线性 全 加 ,方程 组 (2.17.1) 的 通 解 为 
zı = Ai1cos(wit+ qi) + A1» cos p2 + Ais(wat + v3) 
X9 = 412 COS p2 一 am Ais cos(w3t + p3) (2.17.15) 


X3 = 一 411 cos(wit 十 p1) 十 A12 COS (po + Aj13 (wet E (93) 


积分 常数 Ani, Ais, Ais 和 yi, vo. vs 由 初始 条 件 确 定 。 


io 耦合 振动 图 线 


xym 


0 2 4 6 8 10 12 14 16 18 20 
Us 
0.6 
0.4 
E 02 
0 
-0.2 
0 2 4 6 8 10 12 14 16 18 20 
t/s 
1.0 
).5 
g 9 
Ro 0 
-0.5 
0 2 4 6 8 10 12 14 16 18 20 
Us 


A 2.30 三 个 质点 的 位 移 曲线 


在 程序 中 , 用 和 卸 阵 方法 求 本 征 频 率 的 方法 与 2.16 节 弹 簧 连接 的 耦合 摆 中 使 
用 的 方法 相同 ， 这 里 不 再 重复 。 得 到 的 三 个 本 征 频 率 是 6.4550 4.0825 A 0 . 

用 健 里 叶 变 换 求 本 征 频 率 的 办 法 是 对 数值 求解 微分 方程 所 得 到 的 质点 1 的 
位 移 曲线 ( 见 图 2.30 ) 作 健 里 叶 变 换 ， 将 得 到 的 频率 去 掉 零 频 分 量 和 共 轿 的 分 
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5, 然后 平方 得 到 功率 谱 ( 见 图 2.31 ). 功率 谱 中 两 个 极 大 值 即 是 不 为 零 的 两 个 
本 征 频 率 . 得 到 的 结果 是 6.4736 和 3.9984 , 


DI=3.9984 


1 =6.4736 


Pim? 1073 


0 2 4 6 8 10 12 14 16 18 20 
o/s"! 


图 2.31 质点 1 的 功率 谱 


用 拉 普 拉 斯 变换 法 可 求 常 微分 方程 的 解析 解 。 程 序 中 用 MATLAB 的 符号 
计算 功能 ， 对 微分 方程 组 进行 拉 普 拉 斯 变换 (为 了 简单 ， 求解 中 取 质 点 1 的 初 
位 移 为 XL10 ， 其余 的 初 位 移 和 初速 度 取 为 零 )， 然后 求解 变换 所 得 的 方程 组 ， 
最 后 将 解 作 逆 变换 ， 得 出 原 微 分 方程 组 的 解 . 结果 与 解析 方法 的 解 相同 . 将 有 
关 数 值 代 入 后 结果 也 相同 。 在 屏幕 上 显示 的 分 别 是 

XL1 = XL10%*m*(1/(M+2*m)+1/2/m*cos((k/m) ^ (1/2) *t)+ 

1/ (2*M+4*m) *M/m*cos ( ( (M+2%m) *k/M/m) ^ (1/2) *t) ) 

XL2 = k*XLi0*m*(-1/k/(M*2*m)*cos (((M+2*m) *k/M/m) ^ (1/2) *t)+ 

1/k/(M*2*m)) 

XL3 = m*XL10*k^2*(1/k^2/(M*2*m) -1/2/k^2/mxcos ( (k/m) ^ (1/2) xt) * 

1/2*M/k^2/ (M*2xm) /m*cos ( ( (M+2*m) *k/M/m) ^ (1/2) *t)) 

为 了 作出 动画 模拟 ， 必 须 给 参数 的 具体 值 . 仍 取 m= 3,M =4,k = 50, £X 
拉 普 拉 斯 变换 法 求 得 的 方程 的 解析 解 中 ， 得 

XL1 = .6000e-1+.1000*cos(4.082*t)+.4000e-1*cos(6.456*t) 

XL2 = -.6000e-1*cos(6.456*t)*.6000e-1 

XL3 = .6000e-1-.1000*cos (4. 082*t)+.4000e-1*c0s (6.456*t) 

这 个 表达 式 就 是 式 (2.17.15) . 在 每 个 余弦 函数 中 w 前 面 的 数值 就 是 简 正 频 
TE. 仿照 2.16 节 的 做 法 ， 在 这 个 表达 式 中 取 不 同 的 项 加 以 组 合 ， 就 可 以 分 别 表 
示 不 同 的 振动 模式 如 一 般 振 动 、 按 简 正 模式 1 运动 、 按 简 正 模式 2 运动 等 。 如 
果 没 有 动画 ,一 般 振动 模式 的 运动 是 很 难 想象 的 。 
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4 S35 

(1) 傅 里 叶 频 率 与 简 正 频率 是 什么 关系 ? 

(2) 在 利用 傅 里 叶 变换 求 简 正 频率 时 ， 为 什么 要 先 求 出 功率 谱 ? 在 功率 谱 
中 如 何 寻找 它 最 大 值 ? 

(3) 在 功率 谱 图 形 中 ,， 横 坐标 与 纵 坐标 的 单位 是 什么 ? 


5. RA AL 

主 程序 的 文件 名 是 szydxt.m 。 

disp( “方法 一 : 用 和 窍 阵 法 求 本 征 值 ') 
m=3, M=4, k=50 

K=[k, -k, 0; +k, 24k, -k; 0, -k, k]; 
S=[m, 0, 0; 0, M, 0; 0, 0, m]; 
[Q,L]=eig(K,S) VAR KE AE REE 
OL=sqrt (L) AAR A AE HH FE 

pause(0.2) 


disp ' 方法 二 : FA FHL 25 Pe Be AY ZI EE ) 
XS10=0.2;XS20=0.35;XS30=-0.3; %% 初 始 位 移 
AASR BK (EL AE 
[t ,u] =ode45 ('szydxtfun', [0:0.01:33] , [XS10,XS20,XS30,0,0,0],[ ]); 
figure WX 画 三 个 质点 的 位 移 曲 线 
subplot (3,1,1); 
plot(t(1:2000),u(1:2000,1)) 
title” Ma RUE; 


xlabel (/Time(s)'); ylabel (‘Distance(m)’) ; 

subplot (3,1,2); 

plot (t(1:2000) ,u(1:2000, 2) ) 

xlabel (/Time(s)'); ylabel (‘Distance(m)’) ; 

subplot(3,1,3); 

plot (t(1:2000) ,u(1:2000,3)) 

xlabel (/Time(s)'); ylabel (‘Distance(m)’) ; 
%% 用 传 里 时 变换 求 本 征 频率 

Y=fft(u(:,1)); ANIT BX TEL RE fe R E t e d 

Y(1)=[]; Wh dE E 

n-length(Y)/2; ‰y 计 算 频 率 个 数 


power-abs(Y(1:n)).^2/(length(Y).^2); WY 计算 功率 谱 
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freq-100*(1:n)/length(Y); 
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%y 计 算 频 率 ， 因 为 步 长 为 0.01 ， 而 不 是 1 ， 故 乘 以 100 
power 1=power ; XX 寻找 两 个 最 大 的 频率 


[id1,daai]=max(power1) ; 
power1(daa1)=0; 
[id2,daa2]=max(power1) ; 


WF=2*pi*[freq(daal) ,freq(daa2)] ; 


figure 


plot (2*pixfreq(1:100) ,power(1:100)) 


hold on 

title( ' 功率 谱 “ 

xlabel('\omega /s*{-1}’) 
%% 画 标志 点 


hh E 9H R 


118 55 3 i 


ylabel(/P / m^2/) 


rp 


plot (WF, [power (daa1) ,power(daa2)],'r.’,’markersize’,40) 


text (5,7.5e-3,'Frequency1=3. 


9984’) hit o F jE 


text (7, 6e-3, 'Frequency2=6 . 4736’) 


pause(0.2) 


disp(“ 方 法 三 : 拉 普 拉 斯 变换 ) 
L10=1.0; L20=1.0; %% 初 位 移 
syms k M m w XL10 XL20 XL30 real 


ddXLi-diff(sym(XL1(t)^),2); 
dXLi=sym('diff(XL1(t) ,t)'); 
XLi=sym(/XL1(t)’); %% 表 


ddXL2=diff (sym(XL2(t)^),2); 
dXL2-sym('diff(XL2(t),t)^); 
XL2=sym(/XL2(t)’) ; %% 表 


ddXL3=diff (sym(/XL3(t)’) ,2); 
dXL3=sym (‘diff (XL3(t) ,t)'); 
XL3=sym('XL3(t)’) ; yo 


syms t s 


eqi=m*ddXL1-k* (XL2-XL1) ; 


eq3=m*ddXL3+k* (XL3-XL2) ; 


WAH AR XL1 的 二 阶 导数 


[EE E 


WX 表示 XLI 的 一 阶 导 数 


示 位 移 XLi 


WY 表示 XL2 的 二 阶 导数 


WY 表示 XL2 的 一 阶 导 数 


示 位 移 XL2 


Whe A XL3 的 二 阶 导数 


YY 表示 XL3 的 一 阶 导 数 


示 位 移 XL3 


Wht A Ti TE 
eq2-M*ddXL24k* (XL2-XL1) -k*(XL3-XL2) ; 


%%X 表 示 方 和 


yl 


179 


180 


$23 模拟 实验 题目 


Li=laplace(eqi,t,s); %% 对 方程 一 进行 拉 普 拉 斯 变换 
L2-laplace(eq2,t,s); %% 对 方程 二 进行 拉 普 拉 斯 变换 
L3-laplace(eq3,t,s); %% 对 方程 三 进行 拉 普 拉 斯 变换 


syms LXL1 LXL2 

NXL1-subs(L1,'XL1(0)/,XL2(0)','XL3(0)  ,/D(XL1) (0)’,/D(XL2) (0)... 
'D(XL3) (0)',/XL10’,0,0,0,0,0); EE 40 (EL 

NXL2-subs (L2,'XL1(0)/,XL2(0)','XL3(0) ' ,/D(XL1) (0)’,/D(XL2) (0)’,... 
'D(XL3) (0)',/XL10’,0,0,0,0,0); AAE e Z fL 

NXL3=subs (L3 ,'XL1(0)','XL2(0)','XL3(0)’,'D(XL1) (0)’,/D(XL2) (0)',... 
'D(XL3) (0)',/XL10’,0,0,0,0,0); hh e 40 (EL 


NNXL1=subs (NXL1,'laplace(XL1(t) ,t,s)’,'laplace(XL2(t) ,t,s)',... 
‘laplace(XL3(t) ,t;s)^, 'LLA",'LE2! ,/L13') 4 VUE dd KE 
CXLi-collect(NNXL1,'LL1^) ; XY 合并 同类 项 

NNXL2-subs (NXL2,'laplace(XL1(t) ,t,s)’,'laplace(XL2(t) ,t,s)’,... 
laplace(XL3(t),t,s)','LL1’ ,'LL2' T8328 (UE ie br Be fe E 
CXL2=collect (NNXL2,'LL2’) ; %Y 合 并 同类 项 

NNXL3-subs (NXL3,"1aplace(XL1(t) ,t,s)','laplace(XL2(t) ,t,s)',... 
laplace(XL3(t) ,t,s)',/LL 4”, 'LL2 R13’) ; yy, aR ie br Be pe E 
CXL3=collect (NNXL3,'LL3’) ; ‰ 合 并 同类 项 


%% 解 变换 后 的 方程 
[j1,j2,j3]=solve(CXL1,CXL2,CXL3,’LL1’,/LL2’ ,’LL3’) ; 


XLi=ilaplace(ji,s,t) WX 逆 变 换 求 位 移 XL1 
XL2=ilaplace(j2,s,t) %%X 逆 变换 求 位 移 XL2 
XL3=ilaplace(j3,s,t) %% 逆 变换 求 位 移 XL3 
XL1i=eval(subs (XL1,m,M,k,XL10,3,4,50,0.2)); %%X 求 数值 结果 
XL2=eval(subs (XL2,m,M,k,XL10,3,4,50,0.2)); AAR BE 2s FR 
XL3=eval (subs (XL3,m,M,k,XL10,3,4,50,0.2)); AAR BA 2s FR 


XLi-vpa(XL1,4) %% 解 数值 化 

XL2-vpa(XL2,4) %% 解 数值 化 

XL3-vpa(XL3,4) %% 解 数值 化 

XL1=inline(char(XL1) ,'t’); WEI XL1 变 成 字符 串 ， 再 变 成 函数 
XL2-inline(char(XL2),'t/); 

XL3-inline(char(XL3),'t'); 
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pause(0.2) 


L=1; Whee 3€ US KE 
a=0.2; hh/) BR HE 
t=0:0.01:33; 
XL1=XL1(t) ; %% 一 般 振动 时 三 质点 的 运动 方程 
XL2=XL2(t); 

XL3=XL3(t) ; 

sp{1}=' 一 般 振 动 模 拟 “; WX 标注 文字 
sp{2}=' 简 正 模 1'; 

sp{3}=' 简 正 模 2’; 

figure 

axis([-1,2*L+4*a+1,-1,1]); 

hold on 


T 


， 也 是 大 球 的 半径 


for n=1:3 

cla 

text(1,0.8,sp{n},’FontSize’,16,’FontName’,’ RÅR ',... 
'FontWeight','bold','Color',[ 0 0 0.6275]) 

if n== 

elseif n==2 
XL1=.4000e-1*cos(6.456*t) ; 
XL2=- .6000e-1*cos(6.456*t) ; 
XL3=.4000e-1*cos(6.456*t) ; 

else n==3 
XL12.1000*cos (4.082*t) ; 
XL2-2.6000e-1*ones (1,1000); 
XL3-2-.1000*cos(4.082*t) ; 


end 

š zy 1 Efo T d 
qioui-line(0,0,'color','r','marker','.','markersize',50,... 
'erasemode' ,'xor') ; 44E 球 


qiou2=line(L+3*a/2,0,'color’,'b’,’marker’,’.',... 


'markersize!,80,'erasemode','xor'); 
qiou3-line(2*L43*a,0,'color','r ','marker!,'.',... 


'markersize',50,'erasemode','xor'); 
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xxi-linspace(a/2,L*a/2,10); AA T E ue 
xx2=linspace(L+5*a/2,2*L+5*a/2 ,10); 
yy1=[0,-0.04,0.04,-0.04,0.04,-0.04,0.04,-0.04,0.04,0]; 
yy2=yyl; 
tanhuangi-line(xx1,yy1,'color','g','linestyle','-',... 
'erasemode' ,'xor' ,'linewidth',2); 
tanhuang2-line(xx2,yy2,'color','g','linestyle','-',... 
'erasemode' ,'xor' ,'linewidth',2); 
for i-1:1000 %% 动 E 
xx1l-linspace(XL1(i)*a/2,L*a/2*XL2(1),10); 
xx2=linspace(XL2(i)+L+5*a/2,2*L+5*a/2+XL3(i) ,10) ; 
set(tanhuangi,'XData',xx1,'YData',yy1) ; 
set(tanhuang2,'XData',xx2,'YData',yy2) ; 
set (qioul,'XData',XL1(i),'YData',0) ; 
set (qiou2,’XData’,L+3*a/2+XL2(i) ,'YData’,0); 
set (qiou3,’XData’ ,2*L+3*a+XL3(i),'YData’,0); 
drawnow; 
end 
end 
disp('the end’) 
函数 文件 是 一 个 独立 的 文件 ,文件 名 为 szydxtfun.m, 其 中 yi = t1, y» = 
22, Y3 = 23, ys = da, /dt, ys = dzx2/dt, ye = dz3/dt , 
function ydot=szydxtfun(t,y,flag) 
m=3; 
M=4; 
k=50; 
ydot=[y (4) ; 
y(5; 
y(6); 
k/m*(y(2)-y(1)); 
k/M*(y(3)-y(2))-k/M*(y(2)-y(1)); 
k/m*(y(2)-y(3))]; 
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l. 实验 题目 

研究 简化 的 茶 分 子 模 型 的 振动 。 茶 分 子 可 简化 为 图 2.32 所 示 的 六 个 自由 度 
的 微 振动 系统 模型 ， 即 六 个 质量 均 为 m 的 相同 的 质点 被 约束 在 光滑 的 固定 水 平 
圆 环 上 运动 . 珠子 之 间 用 相同 的 无 质量 的 弹簧 连接 ， 弹簧 的 偶 强 系数 为 & 。 


图 2.32 葵 环 的 简化 模型 


2， 实 验 目的 和 要 求 

(1) 用 矩阵 方法 求 简 正 频率 . 可 直接 求解 系统 运动 微分 方程 , 亦 可 利用 运动 
的 对 称 性 将 自由 度 减少 后 列 方程 求解 ,本 题 可 以 看 作 是 将 2.16 节 的 方法 推广 到 
自由 度 更 多 的 系统 ， 从 中 可 以 看 到 计算 机 求解 的 优点 . 

(2) 动画 模拟 六 个 简 正 模式 和 系统 的 一 般 运 动 . 

(3) 学 习 用 指令 diag 构造 对 角 和 矩阵 . 


3， 解 题 分 析 
茶 分 子 模型 有 六 个 自由 度 ,以 质点 相对 自身 平衡 位 置 移动 的 弧 坐 标 s1, 52, 83, 


$4, 85, 86 作为 广义 坐标 。 
方法 一 : 用 矩阵 方法 求 简 正 频率 
系统 的 动能 为 


1 ds; 2 
T E pU (5) + 


以 平衡 位 置 为 势能 零点 ， 系 统 的 势能 为 ， 


1 1 1 
V = 5^ (s2 — 81) + 5k (s3 — 82) + z" (s4 — s3) + 
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1 1 1 
了 (55 = sa)” + z“ (s6 — s5) + zE (51 = se) 


4S u —2k-mw?, Fit KB AEA EH 


u 一 天 0 0 0 0 一 
—k u 一 天 0 0 0 0 
0 =k u 一 大 0 0 0 
0 0 -k u  —k 0 0 |=0 
0 0 0 =k u 一 大 0 
0 0 0 0 =k u E: 
一 大 0 0 0 0 k u 
求 出 简 正 频率 


5470 5120 s1=0 54 ^ 
S9 53 3 一 个 
(1— [E os=| 大 
m m 
(a) (c) 
55 到 56 55 56 
E y ^ [a E 
sD*w— -AT E -—5 
ex-2[ @s=0 a= | 3k 
m m 
(d) (e) (f) 


图 2.33 EXTRAS 6 种 简 正 振动 
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简 正 频 率 中 出 现 了 wi =w, wa =w6， 但 不 能 认为 简 正 模式 减少 . 根据 线性 
代数 理论 , 说 明 对 应 同一 个 简 正 频率 存在 两 个 线性 无 关 的 本 征 矢 ( 简 正 模式 ). 
即 6 个 简 正 频率 对 应 于 6 个 简 正 模式 ， 其 示意 图 如 图 2.33 pra. 

方法 二 : 运用 对 称 性 求解 


根据 对 称 性 ， 可 直接 分 析 得 出 葵 环 模型 有 六 种 如 图 2.33 的 简 正 模式 . 解 题 
步骤 是 先 将 自由 度 减 少 ， 再 用 一 般 方法 求解 . 求解 过 程 如 下 : 


了 


| 


图 2.34 RHPA z 轴 的 对 称 性 图 2.35 葵 环 振动 对 y 轴 的 对 称 性 


(1) 设 14 质 点 静止 , 其 他 四 个 质点 的 运动 相对 于 通过 1, 4 质点 的 Ox RIDE 
Wk CILE] 2.34 ), s2 


$6, $3 $5, 81 
H s2, $3. 


系统 的 动能 和 势能 分 别 为 


0, $4 


0, 自由 度 由 6 减少 到 2 ， 广 义 坐 标 


V = ks? +k(s3 — 82)” + ks? 
E AY ATR ERN 


2k — mw? —k 


—k 2k — mw? 


| k 3k 
y= 3 W2 = 
m m 


分 别 对 应 wi, w 的 两 个 本 征 矢 量 为 


得 简 正 频率 
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简 谐 振动 方程 分 别 为 
s2 = Ao) cos (wit + q1) | 


$3 = Ady cos (wit + (1) 


81 = Áz cos (wot + p2) 
83 = 一 422 cos (wot + Yo) 
与 wi 对 应 的 简 正 模 如 图 2.33(a) ， 与 wa 对 应 的 简 正 模 如 图 2.33(b) . 


(2) 设 系统 各 质点 的 运动 对 Oy 轴 对 称 , 如 图 2.35 Bras, so = 53, $1 = 54, 56 
s5 ， 自 由 度 变 成 3。 选择 50, 51, s6 为 广义 坐标 . 
系统 的 动能 和 热能 分 别 为 


= ds, è ds» 2 dse g 
T=m ($) +m (S) +m ($2) 
2 2 1 2 1 2 
Vm k (s2 = 86) T k(si = se) gl gk (282) + 5k (286) 


利用 下 面 的 方程 ， 求 出 简 正 频率 : 


2k — mo? —k —k 
—k 3k — mw? 0 =0 
—k 0 3k — mo? 


k ' k k 
Qg =\ =, ws 二 一， %4 = 24/ 一 
m m m 


对 于 ws, RIERA 


A13 Ais 
1 
As E A»3 = 2/5 
1 
Aes -A 
5/113 


简 正 振动 方程 
$1 = A13 COS (wat + (93) 


1 
$9 = 3413 COS (wat + (93) 


1 
$6 — 3413 COS (wat 十 (9a) 
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简 正 模式 如 图 2.33(c) Bron. 
对 于 wa ， 经 计算 ， 其 简 正 模式 与 图 2.33(b) 相同 ,没有 给 出 新 的 模式 . 
对 于 ou, FERK 


A14 A14 
A= | Au | =|) -Au 
Aga 一 414 


简 正 振动 方程 为 
sı = A14 cos (wat + q4) 
s2 = —Aj4 cos (wat + p14) 
86 = — A14 cos (wat + yas) 
简 正 模式 如 图 2.33(d) 所 示 . 
(3) 根据 力学 系统 对 圆心 0 有 中 心 反 演 对 称 性 ， 设 各 质点 位 移 方向 相同 ， 


$1 = 84, 82 = 85, 53 = 86 ,将 系统 自由 度 设计 为 3, Msi. s2, 53 为 广义 坐标 。 
系统 的 动能 和 势能 分 别 写成 


可 得 
2k — mo? —k —k 
—k 2k — mw? 0 =0 
—k —k 2k — mo? 


求 出 三 个 简 正 频率 
, 3k 
w5=0, we we = 1/— 
m 


与 we 对 应 的 运动 是 所 有 质点 以 相同 速率 绕 O 点 作 纯 转 动 ， 如 图 2.33(e) 所 
示 . 为 了 简单 ,在 程序 中 取 初 始 速度 为 零 . 

对 we 和 we , 为 满足 中 心 反 演 对 称 性 , 要 求 三 个 质点 的 运动 满足 两 种 模式 . 

第 一 种 模式 是 


$2 — 83, $1 — —252 = 一 253 
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第 二 种 模式 是 
$1—0, S2 = —83 

前 一 种 是 新 的 简 正 模式 ， 如 图 2.33(f) Bras. 后 一 种 模式 与 图 2.33(b) 的 模式 
TRI]. 这 两 种 模式 都 能 使 s1 十 s2 +s3 50. 这 是 质点 运动 所 要 求 的 。 

在 编程 计算 中 , 计算 各 质点 位 移 的 过 程 完全 与 2.16 节 弹 簧 连接 的 耦合 摆 相 
同 ， 只 是 变量 的 个 数 增加 了 . 这 里 不 再 叙述 .。 AT XS A, UH T TS 
diag, 其 用 法 在 第 一 章 中 有 过 介绍 . 

在 程序 中 ， 有 一 个 子 程序 是 用 来 画 运 动 中 的 弹簧 ， 其 思路 是 ， 先 以 某 个 固 
定点 4 画 一 条 正弦 曲线 来 表示 弹簧 ,然后 以 4 点 为 轴 转 过 角度 q1, 最 后 再 做 一 
次 坐标 变换 ， 把 直 的 弹簧 变换 成 沿 圆 环 容 曲 的 弹 筑 . 


4 BAR 
请 找 出 动画 中 各 种 振动 模式 与 解析 解 的 各 种 圆 频率 的 对 应 关系 。 


5. 参考 程序 

主 程序 的 文件 名 是 bhm . 
function bh 

m=1; k=50; 

XX 计算 本 征 值 与 本 征 频 率 
S-m/k*diag(ones(1,6)); 
P=2*diag(ones(1,6))-diag(ones(1,5) ,-1)-diag(ones(1,5) ,+1); 
P(1,6)=-1; P(6,1)=-1; 

[JM, JBB]=eig(S\P) 
JB=abs (sqrt (JBB) ) ; 

和 yy 给 定位 移 表 达 式 中 的 各 项 的 系数 

al=[0.2, 0, 0, 0, 0, O, 0.1]; 


a2=[ 0, 0.2, 0, 0, 0, 0, 0.1]; 

a3=[ 0, 0, 0.2, 0, 0, 0, 0.1]; 

a4=[ 0, 0, 0, 0.2, 0, 0, 0.1]; 

a5=[ 0, 0, 0, 0, 0.2, 0, 0.1]; 

a6-[ 0, 0, 0, 0, 0, 0.2, 0.1]; 

phii-0; phi2-0; phi3=0; 和 设置 初始 位 相 
phi4=0; phid=0; phi6-0 ; 

t=0:0.01:4; %% 质 点 运动 的 时 间 


r=1; %% 圆 环 的 半径 
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figure 
for kk=1:7 
axis([-1.5*r 1.5*r -1.5*r 1.5*r]); 


axis equal 


hold on 
plot(r.*cos(0:0.1:2*pi) ,r.*sin(0:0.1:2*pi) ,'y’) %Y 画 参考 圆 
if kk==7 %y 加 文字 标注 
title 一 般 模式 D 
else 


tii-' {EFA \cdot\cdot\cdot’; ti2=int2str (kk); 
ti-[tii,ti2]; 
title(ti); 
end 
for i-1:6 WAT SER NP EE 
ss-al(kk)*JM(i,1)*cos(JB(1,1)*t*phii)*a2(kk)*JM(i,2)... 
*cos(JB(2,2) *t*phi2)*a3(kk) *JM(i,3)*cos(JB(3,3)*t*phi3)... 
+a4(kk)*JM(i,4)*cos(JB(4,4)*t+phi4) +a5(kk)*JM(i,5)... 
*cos(JB(5,5)*t+phi5) +a6 (kk) *JM(i,6)*cos(JB(6,6)*t+phi6) ; 
x{i}= r.*cos((i)*pi/3-ss./r); 


y{i}= r.*sin((i)*pi/3-ss./r); 


end 


for i-1:5 
[xp, yp] =plotstring(x{i}(1) ,y{i}(1) ,x{it1}(1) ,y{it1}(1) ,r); 
h{i}=plot (xp, yp,’erasemode’ ,’xor’ ,/linewidth',1.5); WY% 画 弹 签 
hh{i}=plot(x{i}(1) ,y{i}(1) ,’erasemode’,’xor’ ,/marker’,’o’,... 
'markersize’,25,'linewidth’,2.5,'color’,'r’); %Y 画 小 圆圈 
ii=7-i; 
hhh{i}=text(x{i}(1)-0.08,y{i}(1)+0.01,int2str(ii),... 
'fontsize',14,'erasemode','xor'); WY 质点 的 编号 
end 
[xp6,yp6]=plotstring(x{6}(1),y{6}(1),... 
x{1}(1) ,y{1}(1) ,r); whee 6 个 质点 的 图 像 
h6-plot(xp6,yp6,'erasemode','xor','linewidth',1.5); 


T 


hh6=plot (x{6}(1) ,y{6}(1) ,'erasemode' ,'xor' ,'marker' ,'o',... 


'markersize',25,'linewidth',2.5,'color','r/); 
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hhh6-text (x{6}(1)-0.08, y{6}(1)+0.01,'1',/fontsize’,... 


14,’erasemode’ ,'xor’); 


for j=2:2:401 %% 作 动画 
for i=1:5 
[xp, yp]=plotstring(x{i}(j),y{i}(j) ,x{i+1}Cj),y{i+1}(j) ,r); 
set (h{i},’xdata’,xp,'ydata’,yp) ; 
set (hh{i},’xdata’,x{i}(j) ,’ydata’,yi(j)); 
set (hhh{i},'position’, [x{i}(j) ,y (31 GD D ; 
end 
[xp6,yp6]=plotstring (x{6}(j) ,y{6}(j) .x (1) G2 y (13 0,0; 
set (h6,'xdata',xp6,'ydata',yp6) ; 
set (hh6,'xdata',x(6] (j) ,'ydata',y(61 (32) ; 
set (hhh6,'position’, [x{6}(j) ,y{6}(j)]); 


drawnow; 
end 
cla 入 清除 图 形 窗口 
end 
close(gcf); %X 关 闭 图 形 窗口 


AAE TE LE E 
function [xp,ypl-plotstring(xa,ya,xb,yb,r) 

AADA T&A] eR ENE SE DC RUND P BLU EL RI B xu E 
[xa1,yai]s2cart2pol(xa,ya); 


xal=xa1+0.13; 
[xa,ya]=pol2cart(xal,ya1) ; 
[xb1,yb1]=cart2pol(xb,yb) ; 
xbi=xb1-0.13; 

[xb, yb]=pol2cart(xb1,yb1); 

a=0.13; n=5; AAE 38 US EE & He 


q2-[ ]; 

d=sqrt ((xa-xb) ^2*(ya-yb) ^2) ; Whit & WY KE 
w-2x*pi*n/d; 

x-xa:0.02: (xatd) ; Whe Se BY x AR HR 
y=a.*sin(w.*(x-xa)); WHEN y AR AR 


if xa>xb hit Fee E de zo SE 
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qi-pi*atan((ya-yb)/(xa-xb)); 
else 
qi-atan((ya-yb)/(xa-xb)); 
end 
xd=xat(x-xa) .*cos(q1) ; Lie S5 TE E 
ydzya*(x-xa) .*sin(q1); 


和 以 下 是 对 弹簧 的 各 点 作 变 换 
for i=1:length(y) 
if xd(i)<0 
q2a=pitatan((yd(i))/(xd(i))); 
q2-[q2 q2a]; 
else 
q2a-atan((yd(i))/(xd(i))); 
q2-[q2 q2a]; 
end 
end 
xp=(rty) .*cos(q2) ; 
yp=(rty) .*sin(q2) ; 
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2.19 Amina 


1. 实验 题目 
人 研究 范 : 德 : 波 耳 (Van der pol) 方程 
dr j 


dg — p (zo — x°) E tue = 0 (2.19.1) 


所 描述 的 非 线性 有 阻尼 的 自 激 振动 系统 ,其 中 凡是 一 个 小 的 正 的 参量 ，zo 是 常 
AX. 下 面 简称 范 . 德 . 波 耳 方程 为 VDP 方程 。 
在 VDP 方程 中 ,增加 外 驱动 力 Vcoswt 项 所 得 到 的 方程 
da 


d 
aw! (za — x°) a ctus Vcoswt —0 (2.19.2) 


称 强迫 VDP 方程 ， 其 中 外 驱动 力 的 振幅 、 角 频率 分 别 是 了 Wo. AOE FE RA 
VDP 方程 的 行为 . 


2. 实验 目 的 和 要 求 

(1) 演示 VDP 方程 所 描述 的 系统 在 非 线 性 能 源 供 给 下 ， 从 任意 初始 条 件 出 
发 都 能 产生 稳定 的 周期 性 运动 。 

(2) 采用 庞 加 莱 映 像 ， 演 示 强 迫 VDP 方程 在 不 同 参数 下 所 存在 四 种 吸引 
子 ， 即 周期 1 吸引 子 、 周 期 2 吸引 子 、 不 变 环 面 吸引 子 和 奇怪 吸引 子 . 

(3) 对 于 强迫 VDP 方程 ,在 站 和 ww 为 定 值 条 件 下 ， 逐 渐 增 大 人 值 ， 将 出 现 
周期 倍 分 岔 和 混沌 现象 。 


3， 解 题 分 析 

自 激 系统 是 一 个 非 线 性 有 阻尼 的 振动 系统 ， 在 运动 过 程 中 伴随 有 能 基 损 
TE. 但 系统 存在 一 种 机 制 , 使 能 基 能 够 由 非 振 动 的 能 源 通过 系统 本 身 的 反馈 调 
节 ， 及 时 适量 地 得 到 补充 ， 从 而 产生 一 个 稳定 的 不 衰减 的 周期 运动 ， 这 样 的 振 
动 称 为 自 激 振动 . 

对 VDP 方程 ， 可 从 机 械 振动 角度 理解 ， -4 (za — 27) 是 阻尼 系数 ， 它 是 变 
化 的 。 如果 |z| > |zol ， 则 阻尼 系数 为 正 ， 系 统 将 受阻 尼 ， 能 量 将 逐渐 减少 ; 但 
如 果 |z| < |zo| ， 则 发 生 负 阻尼 ,意味 着 不 仅 不 消耗 系统 的 能 量 ， 反 而 给 系统 提 
供 能 量 。 此 系统 能 通过 自动 的 反馈 调节 ,使 得 在 一 个 振动 过 程 中 ,补充 的 能 量 
正好 等 于 消耗 的 能 量 ， 从 而 系统 作 稳定 的 周期 振动 。 

取 方 程 中 的 zo = 1,wo? =1=03( 这 些 值 可 适当 调整 ). 给 出 任 一 初始 条 
件 ， 通 过 计算 机 数值 求解 可 以 证 明 它 的 相 轨 道 都 将 趋向 于 一 条 闭合 曲线 ， 这 一 
条 闭合 曲线 , 称 为 极限 环 , 极限 环 以 外 的 相 轨 道 向 里 盘旋 , 而 极限 环 以 内 的 相 轨 
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道 则 向 外 盘旋 ， 都 趋向 极限 环 (如 图 2.36 所 示 ), 谨 明 不 论 初始 情况 如 何 ， 系 统 
最 终 都 到 达 以 极限 环 描述 的 周期 性 运动 。 由 于 这 有 段 程序 较 简 单 ， 我 们 没有 专门 
编写 . 事实 上 , 只 要 将 下 面 编写 的 关于 强迫 VDP 方程 的 程序 中 令 站 = 0, /= 0.3 
再 取 不 同 的 初始 条 件 ， 就 能 看 到 这 个 现象 


3 


-3 " " " " 4 AN 
A -3 -2 -1 0 1 2 


图 2.36 相 图 中 极限 环 


下 面 研究 强迫 VDP 方程 的 行为 . 我 们 同时 采用 时 间 历 程 图 、 相 图 和 庞 加 莱 
映像 图 来 研究 系统 在 不 同 参 数 条 件 下 的 动力 学 行为 ,可 以 看 到 存在 不 同 的 吸引 
子 ， 即 周期 1 吸引 子 、 周 期 2 吸引 子 、 不 变 环 面 吸引 子 和 奇怪 吸引 子 . 

先 对 庞 加 莱 映 射 作 一 简介 . 为 了 更 清楚 地 了 解 运 动 的 形态 ， 庞 加 莱 对 连续 
运动 的 轨迹 用 一 个 截面 ( 叫 庞 加 莱 截 面 ) 将 其 横 截 , 那么 根据 轨迹 在 截面 上 穿 过 
的 情况 ， 就 可 以 简洁 地 判断 运动 的 形态 ， 由 此 所 得 图 像 叫 庞 加 莱 映 像 . 在 截面 
图 上 ， 轨 迹 下 一 次 穿 过 截面 的 点 zn+l 可 以 看 成 前 一 次 穿 过 的 点 zn 的 一 种 映射 


Zn+l = f(x) (n = 0,1, 2,---) 


这 个 映射 就 叫 庞 加 莱 映射 . 它 把 一 个 连续 的 运动 化 为 简洁 的 离散 映射 来 研究 . 

在 庞 加 莱 映 像 中 的 不 动 点 反映 了 相 空 间 的 周期 运动 。 如 果 运 动 是 二 倍 周 期 
的 ， 则 庞 加 莱 映 像 是 两 个 不 动 点 ， 四 倍 周期 则 有 四 个 不 动 点 等 。 

绘制 庞 加 莱 映 像 是 在 普通 的 相 平 面 上 进行 ， 它 不 是 像 画 相 轨 道 那 样 随 时 间 
变化 连续 地 画 出 相 点 ， 而 是 每 隔 一 个 外 激励 周期 站 = 2r/w) 取 一 个 点 . 例如 取 
样 的 时 刻 可 以 是 t= 0, T, 2T 相应 的 相 点 记 为 Polzo, yo), Pi (41,41), Po (ae, yo) 
这 些 离 散 相 点 就 构成 了 庞 加 莱 映 像 。 

By =x, y2 =da/dt, ， 则 (2.19.2) 式 可 化 为 


duoc 


= 2 
7 (2.19.3) 
E = pu (xo — yi) y2 — wayi — V coswt 
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Map =l, 09 =1, 进行 以 下 数值 计算 研究 
(在 六 =0.85 耻 =1w=044 条 件 下 ,存在 周期 1 吸引 子 ， 它 的 周期 等 于 
外 激励 的 周期 ， 代 表 主 谐 波 运动 。 如 图 2.37 Bron. 


位 移 曲 线 
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A 2.37 强迫 VDP 方程 的 振动 的 周期 1 吸引 子 


(2) Æ u =1.02, V =1,w=0.4 条 件 下 ,存在 周期 2 吸引 子 , 它 的 周期 等 于 
外 激励 的 整数 倍 ， 代 表 次 谐 波 运动 。 如 图 2.38 所 示 。 


位 移 曲 线 
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1.0 
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图 2.38 强迫 VDP 方程 的 振动 的 周期 2 吸引 子 


(3) Œ u — 0.66, V=1,w=0.4 条 件 下 ,存在 不 变 环 面 吸 引子 , 它 代 表 准 周 
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期 ( 拟 周期 ) 运动 。 如 图 2.39 所 示 ， 


位 移 曲线 
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图 2.39 强迫 VDP 方程 的 振动 的 不 变 环 面 吸引 子 


(4) Æ p= 1.08, V = 1, w 2044 REP, 存在 奇怪 吸引 子 ,代表 混沌 运动 . 
如 图 2.40 Bez. 


位 移 曲线 
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庞 加 莱 截 面 一 奇怪 吸引 子 


图 2.40 强迫 VDP 方程 的 振动 的 奇怪 吸引 子 


(5) RFV fl o Zu XE TEL, 逐渐 增 大 u, 将 显示 系统 状态 演化 过 程 全 貌 的 图 ， 
如 图 2.41 所 示 。 而 前 四 种 情况 中 ， 看 到 的 只 是 4 取 4 个 值 的 片段 情况 。 图形 显 
IW, 当 pw 由 0.9 连续 变化 到 1.2 时 , 系统 运动 状态 逐渐 由 周期 1 过 渡 到 周期 2( 发 
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图 2.41 po 值 连续 变化 所 产生 的 强迫 VDP 方程 的 庞 加 莱 映 像 


在 程序 中 ， 这 几 种 过 程 的 计算 是 相同 的 ， 所 以 用 for 循环 来 完成 前 面 四 种 
计算 ， 这 就 是 程序 zjzd.m . 计算 中 在 每 个 外 激励 周期 内 计算 1000 个 相 点 ， 为 了 
作出 庞 加 莱 映 像 ， 每 隔 1000 个 点 保留 一 个 点 数据 ， 所 以 程序 运行 的 时 间 较 长 . 
对 第 五 种 情况 ， 由 于 计算 量 大 , 将 它 另 外 编写 一 个 程序 ,这 就 是 程序 zjzdlm 。 
计算 中 在 每 个 周期 内 计算 100 个 相 点 ， 庞 加 莱 映 像 是 每 隔 100 个 点 保留 一 个 点 
数据 .图 2.41 是 在 CPU 为 PA 的 计算 机 上 运算 约 半 小 时 所 得 到 的 结 


4 X 


(1) 画 出 不 同 的 吸引 子 的 功率 谱 ， 观 察 它们 的 差别 . 
(2) 4 u f Ei 0.6 连续 变化 到 0.9 时， 计算 强迫 VDP 方程 的 庞 加 莱 映 像 . 
(3) 将 参考 程序 zjzd.m 中 解 微 分 方程 的 时 间 增 加 到 足够 长 ,在 庞 加 莱 映 像 


图 上 可 以 看 到 一 个 更 完整 的 奇怪 吸引 子 形状 . 
5. 参考 程序 
参考 程序 zjzdm 如 下 : 
u=[0.85, 1.02, 0.66, 1.08]; 
x0=1; w0-1; v=1; w-0.44; T-2*pi/w; 


str{i}=' 庞 加 莱 截 面 一 周期 1 吸引 子 “; 
str{2}=' 庞 加 莱 截 面 一 周期 2 吸引 子 “; 
str(3)-' PEM MM ASH MMS |; 
str{4}=' 庞 加 莱 截 面 一 奇怪 吸引 子 “; 


HASA. 
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for j=1:4 
[t ,y]=ode23 ('zjzdfun’, [0:T/1000:50*T] , [4,4] , [] ,u(j) ,x0,w0,v,w) ; 


figure 

subplot (2,1,1) 
plot(t,y(:,1)); 
titled’ fz f Hi; 


xlabel('t);ylabel(x^); 


subplot(2,2,3) 
plot(y(3000:end,1),y(3000:end,2)); 
axis([-3 3 -4 4]) 
xlabel(/x');ylabel('dx/dt^); 


title FAR 5; 


subplot(2,2,4) 

axis([-3 1 -1 1]) 

hold on 

for i-7000:1000:14000 

plot(y(i,1),y(i,2),’r.'); 

end 

title(str{j}); 
end 
参考 程序 zjzdl.m 如 下 : 
u=0.8:0.001:1.2; 
v-1; x0-1; w0-1; w=0.44; T=2*pi/w; 
axis([0.9 1.2 -0.8 1]) 
hold on 
for j-1:length(u) 

[t,y]-ode23('zjzdfun', [0:T/100:70*T] , [4,4], [ ],u(j),x0,w0,v,w); 

plot(u(j),y(500:100:1400,2) ,"1inewidth',2); 
end 
BS t Sc p FE — Ar SCE, LA N zjzdfunm , 
function ydot=zjzdfun(t,y,flag,u,x0,w0,v,w) 
ydot-[y(2); 

u*(x0^2-y (1) *2) *y (2) -y (1)*w0^2-v*cos (Qw*t)] ; 
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2.20 ” 倒 摆 的 强迫 振动 


L SBMA 

倒 摆 的 实验 装置 如 图 2.42 所 示 . 个 摆 是 一 个 倒立 的 摆 , PABLO m, 轻 
质 杆 长 为 1, 个 摆 的 底座 以 微小 的 幅度 绕 其 中 心 作 简 谐 摆动 = 4cosnt (4,9 为 
已 知 常数 )，w 角 表 示 底 座 的 垂 线 对 铅 垂 线 的 偏离 ，0 表示 杆 对 底座 的 垂 线 的 全 
RI. 合 可 的 势能 曲线 如 图 2.43 Bm. LB o 9. 所 以 4 可 近似 表 季 村 对 销 生 线 的 
偏离 ; 弹 策 产生 力矩 为 -cg ( c 为 常量 ); 空气 阻力 为 oI + de) < Laid? (o 
为 阻尼 系数 ). 试 研究 倒 摆 在 某 些 参数 条 件 下 的 强迫 振动 . 


图 2.42 倒 摆 强迫 振动 的 实验 装置 图 2.43 倒 摆 的 势能 曲线 


2， 实 验 目 的 和 要 求 

用 数值 计算 证 明 在 恰当 的 参数 下 ， 倒 摆 的 强迫 振动 将 出 现 混 沌 现象 ,为 此 
从 以 下 几 方 面 考察 混沌 现象 : 

(1) 考察 倒 摆 运动 对 初 值 的 敏感 依赖 性 ， 即 在 经 过 较 长 时 间 以 后 其 运动 是 
不 可 预测 的 。 

(2) 通过 相 图 的 演变 ， 观察 奇 怪 吸引 子 的 形成 . 

(3) 通过 快速 侍 里 叶 变 换 , 作出 其 功率 谱 , 混沌 现象 的 功率 谱 应 为 连续 谱 。 

(4) 38 3E DE USE CTT, 观察 奇怪 吸引 子 在 此 截面 上 的 形状 . 


3， 解 题 分 析 
先导 出 倒 摆 强迫 振动 的 运动 微分 方程 重力 产生 力矩 为 


mgl sin(0 + y) ~ mgl(0 一 A (2.20.1) 
根据 质点 的 角 动 量 定 理 ， 倒 摆 的 运动 微分 方程 为 
2 2 
me (S7 Se) = -9 + mal sin + o) - se (S +2) (2.20.2) 
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dp dé dp de E eee ee 
由 于 < < 所 以 上 式 可 合理 近似 为 
d20 db 1 
27575 2 a 2 3. 44/202 
ml? au + BU (c mgl) 6+ emgl = m?’ O? AcosQt (2.20.3) 


我 们 仅 在 c < mgl 条 件 下 进行 研究 . 
为 了 对 方程 进行 无 基 纲 化 ， 将 方程 (2.20.3) 进行 简化 ， 并 用 大 写 的 工 表示 
时 间 ， 于 是 得 到 


go dg = 
a — T Coa oe = AQ? cos OT (2.20.4) 
设 l 
2 mgt 一 C 
Uc ml? 


Qo 具有 角 频 率 的 量 纲 . 它 的 倒数 给 出 问题 中 的 一 个 时 间 斥 度 To. 其次， 在 无 
驱动 力 时 系统 具有 3 个 平衡 位 置 : 0 = 0 为 不 稳定 的 平衡 位 置 ; 还 有 两 个 稳定 


平衡 位 置 5 
bo = +,/6 - —— 
mgl 


Oo 的 数值 给 出 问题 中 角度 的 一 个 尺度 (在 一 个 问题 中 时 间 的 参考 尺度 ， 空 
间 的 参考 尺度 往往 不 止 一 个 )。 现 取 b 作为 角度 的 量度 单位 ， 取 To(= 1/0) 作 
为 时 间 的 基 度 单位 ， 则 无 量 纲 的 角度 变量 、 无 基 纲 的 时 间 变 量 分 别 为 
0 T 


一 一 一 t = — 
pee To 


dr B dz s _A/QY 0 ， 
ae ma T+” -i (=) cos (c) 
现 分 别 引入 无 量 纲 的 阻尼 系数 、 无 量 纲 的 角 频 率 和 无 量 纲 的 驱动 力 的 振幅 
|. B 9 APO 
f^ "ns fs od 


于 是 可 得 无 量 纲 方程 S x 
Te $2 -z +z’ = f cosut (2.20.5) 
这 就 是 著名 的 强迫 杜 芬 (Duffing) 振动 方程 . 
无 量 纲 化 的 好 处 有 两 方面 : 方程 涉及 的 只 是 数量 关系 ,变量 可 以 代表 不 同 
学 科 领 域 中 的 量 ， 尤 其 在 运算 时 无 需 顾及 单位 换算 ， 这 对 数值 计算 中 初 值 选取 
是 方便 的 ; 更 重要 的 是 取 不 同 的 长 度 单位 和 时 间 单 位 时 ( 即 研 究 问题 的 时 空 尺 
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度 的 选取 ), 无 量 纲 化 后 方程 中 各 项 系数 的 量 级 大 小 不 同 , 如 选取 得 合适 ,能 使 
非 线 性 项 系数 为 小 量 ， 说 明 在 这 样 的 时 空 太 度 内 非 线 性 的 作用 是 弱 的 。 在 不 同 
时 空 尺 度 研究 同一 方程 ,会 显示 出 不 同 景象 . 
r= y, dz/d = yp ， 则 方程 (2.20.5) 化 为 两 个 一 阶 方程 
dy1 _ 
"dt —9y2 
dys _ 
dt 
进行 数值 计算 时 可 选取 参数 4 = 0.26, f= 2, w=2. 
程序 通过 选择 恰当 的 参数 ， 对 初始 条 件 只 有 极 微小 差别 的 两 种 情况 ， 画 出 
的 位 移 曲 线 如 图 2.44 Bro. 我 们 看 到 在 时 间 不 长 的 初始 阶段 ， 两 曲线 的 差别 并 
不 大 ， 只 是 在 长 时 间 后 两 者 才 有 明显 差别 ， 即 在 不 长 时 间 内 它们 的 行为 是 可 预 
言 的 ， 只 有 在 长 时 间 以 后 才 变 成 无 法 预言 的 “随机 ”行为 。 这 种 由 确定 性 方程 
产生 的 对 初 值 敏感 的 现象 通常 称 为 混沌 现象 . 


—óya + yı — y] + f coswt 


摆 角 


—L— ——— LL 4. —X + J. 4 4 
0 10 20 30 40 50 60 70 80 90 100 
时 间 


图 2.44 初始 速度 有 微小 差别 的 两 条 位 移 曲 线 


此 系统 具有 双 稳 形态 的 势能 曲线 ( 见 图 2.43 )， 对 于 无 量 纲 方程 ,不 考虑 外 
激励 时 ， 质 点 有 两 个 稳定 平衡 位 置 (z = +1) 和 一 个 不 稳定 平衡 位 置 (z = 0) ， 
谨 明 质点 可 能 在 两 个 势 阱 中 国 绕 各 自 的 平衡 位 置 振动 。 当 振动 受 激励 后 质点 运 
动 可 能 到 达 不 稳定 平衡 位 置 ， 此 时 将 出 现 两 种 可 能 : 一 种 是 质点 能 够 从 一 个 势 
阱 翻越 势 仅 进入 另 一 个 势 阱 ， 一 种 是 回 到 原来 的 势 阱 。 因 此 质点 运动 的 相 图 大 
体 是 这 样 : 围绕 一 个 稳定 平衡 位 置 振 动 几 次 后 ， 跳 到 另 一 边 ， 转 而 围绕 另 一 稳 
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定 平衡 位 置 振 动 若 干 次 后 ， 又 跳 回 这 一 边 ， 围 绕 移 前 的 平衡 位 置 振动 ，…… 这 
样 往复 不 止 ， 而 且 每 次 情况 都 不 相同 。 它 不 是 周期 性 运动 ， 相 轨道 极其 复杂 . 
它 的 轨道 具有 局 部 不 稳定 性 ， 又 具有 全 局 稳定 性 ， 最 终 被 吸引 于 相 图 中 的 某 一 
位 置 附近 ， 这 种 混沌 的 形态 称 为 奇怪 吸引 子 。 可 利用 庞 加 莱 映 像 显示 强迫 杜 芬 
方程 产生 的 奇怪 吸引 子 。 

由 于 混沌 运动 之 非 周期 性 、 复 杂 的 运动 ， 它 的 功率 谱 不 同 于 周期 运动 或 准 
周期 运动 的 离散 功率 谱 ， 是 连续 谱 。 

程序 中 所 使 用 的 方法 和 语句 ， 都 是 前 面 用 过 的 ， 这 里 不 再 重复 。 为 了 得 到 
庞 加 莱 截 面 ， 需 要 在 每 个 周期 取 一 个 点 。 所 以 在 循环 中 ,将 步 长 增 大 了 。 程序 
运行 所 产生 的 一 个 图 形 如 图 2.45 所 示 。 


位 移 曲 线 
T T 1.5 
E 
1 0.5 | 
0 "LA 
adds -0.5 F 
-tol 
-2 
: -1.5 
0 50 100 150 -2 
功率 谱 Ve AME dif -奇怪 吸引 子 ——— € 
0.15 - x 15 x 倒 摆 运 动 模拟 
1.0 
1.0 
0.10} 0.5 as 
2 
m 0 0 
R L -0.54 * EL. 4 
0.05 "is As 
-1.0 
-1.0 
" -1.5 " = 0 1 
0 0.2 0.4 0.6 -2 0 
频率 /Hz 


图 2.45 强迫 杜 芬 方程 产生 的 奇怪 吸引 子 


4， 思 考题 
仿照 2.19 节 的 做 法 , 取 f=1,w=1, 令 6 从 0.5 变 化 到 0.75， 画 出 杜 芬 方 


T£ AY DE DU Se BR AR 


5. RA AL 
主 程序 的 文件 名 是 db.m 
%% 设 v0 有 微小 的 变化 ， 比 较 解 的 变化 情况 
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x0=0.1;v0=0.1; 
[t ,u] =ode45 ('dbfun', [0:0.01:100] , [x0, v0], [1,0. 78) ; 
[t1,u1]20ode45('dbfun', [0:0.01:100] , [x0,v0-0.001], [1,0. 78) ; 


figure 
plot(t,u(:,1),’r’,t1,u1(:,1),’g’) 
xlabel(. 时 间 '); ylabel(. 摆 角 '); 


titled 混沌 状态 下 初 条 件 有 微小 差异 会 形成 的 两 条 分 开 的 曲线 ) ; 


%% 当 d-2, 为 周期 1 吸引 子 ; 4 d=0.98 为 周期 2 吸引 子 ; 当 d=0.78 
为 奇怪 吸引 子 ， 读 者 可 以 改变 d 值 ， 以 观察 不 同 的 情况 

d-[2,0.98,0.78]; 
str(1)-' 庞 加 莱 截 面 一 周期 1 吸引 子 “; 
str(2)-' 庞 加 莱 截 面 一 周期 2 吸引 子 “; 
str(3)-' 庞 加 莱 截 面 一 奇怪 吸引 子 “; 
for j=1:3 

[t ,u] =ode45 ('dbfun', [0:2*pi/300:100] , [x0, v0] ,[] ,d(j)); 

figure %% 适 当 放 大 图 形 窗口 

set (gcf ,'unit','normalized','Position',[0.04 0.04 0.94 0.8]); 


subplot(2,2,1) VAL TE 曲线 
plot(t,u(:,1)) 

title 位 移 曲 线 ); 
axis([0,150,-2.5,2.5]); 


subplot (2,2,2) %% 相 图 (奇怪 吸引 子 ) 
plot(u(:,1),u(:,2)) 

title JHÉ] D; 

axis([-2 2 -1.5 1.5]) 
xlabel('x);ylabel(v^); 


Y=fft(u(: ,1)); %% 传 里 叶 功 率 分 析 
Y(1)=[ 1; 

n-length(Y); 
power-zabs(Y(1:n/2)).^2/n^2; 和 功率 
freq-100*(1:n/2)./n; Lh R 
subplot (2,3,4) 


plot (freq, power) 
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axis([0 0.6 0 0.15]) 
title 功率 谱 ' 
xlabel(' 频率 /Hz');ylabel(' 功率 /w^); 


subplot (2,3,5) %% 庞 加 莱 截 面 
plot (u(2000:300:4700, 1) ,u(2000:300:4700,2),'r.'); 
axis([-2 2 -1.5 1.5]) 

title(str{j}); 


subplot (2,3,6) 和 实物 模拟 图 

L=1; 

axis([-L L -L L]) 

axis square 

titled’ füi£is XE; 

hold on 

plot(0,0,’r.’) 

ball=line(L*sin(x0) ,L*cos(x0),’color’,'r’,’marker’,’.’,... 
'markersize’,40,'’erasemode’,’xor’) ; 

gan=line([0,L*sin(x0)],[0,L*cos(x0)] ,'color','b','linewidth',2,... 


‘erasemode’,’xor’); 


for 1=1:2:4770 
set(ball,'xData',L*sin(u(i,1)),'yData',L*cos(u(i,1))) 
set (gan,'xData', [O, L«sin(u(i,1))] ,'yData', [O,L*cos(u(i,1))1) 
drawnow 
end 
end 
函数 文件 是 一 个 独立 的 文件 ,文件 名 为 dbfunm , 
function ydot=dbfun(t,y,flag,d) 
r=1;w=1; 
ydot=[y(2) ; 
-y(1)*3+y (1) -dxy (2) *r*cos (wet) ] ; 
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2.21 圆 环 的 滚动 


1. 实验 题目 

研究 圆 环 在 粗糙 水 平面 上 的 滚动 . 设 质 量 为 m ,半径 为 及 的 匀 质 圆 环 ,被 
限制 在 某 一 竖 直 平面 内 沿 摩 擦 系数 为 1 的 水 平面 滚动 。 开 始 时 ， 用 手 按 其 后 侧 
边缘 ,使 圆 环 的 质心 获得 一 定 的 初速 度 v。 ， 同 时 环 有 向 后 转动 的 角速度 wo. 


2. 实验 目的 和 要 求 
分 析 并 用 动画 模拟 圆 环 在 不 同 初始 条 件 下 的 运动 . 


3， 解 题 分 析 
静止 坐标 系 的 Ox 轴 和 圆 盘 转角 vo 的 正方 向 如 图 2.46 所 示 ， 坐 标 原 点 O 为 
初始 时 刻 圆 环 与 水 平面 的 接触 点 。 圆 环 的 运动 可 分 成 两 个 阶段 讨论 . 


图 2.46 圆 环 的 滚动 


(1) 有 滑 滚动 阶段 

圆 环 除 受到 重力 和 桌面 支持 力作 用 外 ,还 受到 与 质心 速度 方向 相反 的 滑动 
ERJ FOYE, F= umg. BARS 己 的 过度 向 前 ， 小 环 作 有 滑 滚 动 . 根据 刚 
体 运动 的 质心 运动 定理 和 相对 质心 的 角 动 量 定 理 ， 圆 环 的 运动 微分 方程 为 


moe =e 
Pp, (2.21.1) 
mR = —umgR 


因为 摩擦 力 下 的 方向 与 质心 运动 方向 相反 ， 摩 擦 力 对 质心 的 力矩 的 方向 
与 圆 环 自转 方向 相反 ， 所 以 质心 速度 和 转动 角速度 都 要 减 小 。 当 运动 到 某 一 时 
刻 ， 接 触 点 了 的 速度 为 零 ， 即 vo = wv。 一 Rdp/dt =0， 圆 环 进 入 无 滑 深 动 阶段 ， 
方程 (2.21.1) 式 不 再 适用 . 

当 圆 环 达 到 无 滑 滚 动 时 ， 上 面 两 个 方程 不 再 适用 . 这 就 牵涉 到 判断 积分 何 
时 终止 的 问题 。 本题 用 指令 events 来 控制 . 当 ve. = Rdo/dt 时 停止 解 方程 
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(2) zu iB IR sh T EE 

该 阶段 共有 三 种 可 能 情况 : 

第 一 种 情况 是 圆 环 到 达 无 滑 时 ， 刚 好 停止 运动 ; 

第 二 种 情况 是 圆 环 达到 无 滑 后 ， 质 心 速度 向 后 ， 圆 环 向 后 作 无 滑 滚 动 ; 
第 三 种 情况 是 圆 环 达 到 无 滑 后 ,质心 继续 向 前 运动 ， 圆 环 改变 自转 方向 向 


前 作 无 滑 滚动 。 
圆 环 运动 中 出 现 哪 一 种 情况 ， 取 决 于 初始 条 件 的 选取 。 具体 分 析 如 下 : 
由 (2.21.1) 式 ， 可 解 得 

Vex = vo — ugt 
ae Ne (2.21.2) 
a oe 
当 vos = RAZ 时 ， 圆 环 进入 无 滑 滚动 阶段 ， 由 初始 至 刚 达 到 无 滑 所 需 时 间 为 
_ up twok 
t= — 2; 8 (2.21.3) 
在 该 时 刻 
é Es vo — woR 
[6^ 2 
Pas | (2.21.4) 
dt 2R 


经 计算 , 圆 环 在 无 滑 滚 动 阶段 质心 将 作 匀 速 直 线 运 动 , 圆 环 的 角速度 do/dt 
也 保持 不 变 . 由 (2.21.4) 式 得 知 三 种 可 能 运动 对 初始 条 件 的 要 求 是 

Avo =woR, Mi ve —0, dp/dt = 二 0， 圆 环 达 到 无 滑 条 件 时 停止 运动 ; 

Æ vo < woR, Wi] vc, <0, dy/dt > 0,， 圆 环 达到 无 滑 条 件 后 向 后 作 无 滑 滚 动 ; 

F vo > woR ， 则 ve > 0, dp/dt <0 ， 圆 环 达到 无 滑 滚 动 后 向 前 作 无 滑 滚 动 。 

在 数值 计算 时 ， 也 是 分 成 两 个 阶段 ， 首 先 考 虑 有 滑 滚动 ， 设 凡 = ze, = 
dze/dt, ys =, ya =dy/dt, WY f£ uf MK 


ou 

dt — ya 
dy _ 
dt Hg 
dys _ 

dt VUA 
dya _ ug 


dt R 
然后 解 这 个 微分 方程 ， 当 vo = woR 时 ,停止 求解 过 程 。 从 此 以 后 ， 圆 环 以 
此 刻 的 质心 速度 和 角速度 作 无 滑 滚动 。 所 以 在 程序 中 ,适当 增加 了 一 段 时 间 来 
观察 此 后 的 运动 。 再 将 这 些 数据 做 成 动画 即 可 . 


(2.21.5) 
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4 X 
(1) Bl ER f E Fc 18: RR ON AY Jag oe BEA fA 368 E Je Un fe EH? 
(2) 用 乒乓 球 代替 圆 环 (二 者 的 转动 惯量 不 同 )， 重 做 此 题 . 


5. 参考 程 序 

主 程序 的 文件 名 是 yhgd.m , 

wOo-[8 2 12]; 

stíij-'v O-RNomega O 时 ， 圆 环 停止 运动 “; 入 文字 标注 
st(2)-'v O»RVomega O 时 ， 圆 环 向 前 做 无 滑 滚 动 “; 
st{3}='v_0<R\omega_0 时 ， 圆 环 向 后 做 无 滑 滚 动 “; 


for I=1:3 
x0=0; f0=0; vO=8; R=1; 
options=odeset (‘events’,'on’) ; hh on eL fE 


[t, y, event]-ode23('yhgdfun', [0:0.05:100] , [x0, v0, £0, wO (I)] , options); 
%%y 达 到 无 滑 滚 动 后 ， 将 按 无 滑 滚动 的 方程 运动 
T=0:0.05:10; 入 设 定 无 滑 滚 动 的 时 间 
vx=L[y(:,1);y(end,1)+y(end,2)*T’]; 
%% 有 滑 滚 动 及 无 滑 滚 动 总 的 水 平 位 移 
jd-[yC:,32 ; y (end, 3) *y (end, 4) *T'] ; 
Whe TR IRL GG TR RR iy RUBER 


axis([-10 30 -5 5]) 


axis equal; 


hold on 

axis off 

set(gca,'position',[0.13 0 0.775 0.815 1); 和 设置 当前 轴 的 范围 
set(gcf,'color',[0.4 0.8 0.96]); Wik £ EERE 


title(st{I},'fontsize’,18,'fontname’,’ R B ','color','r^); 
thetazy(:,3); h--2.5; r-2.7; 


xdian-vx4r*sin(jd); ydian=1-r*cos(jd); %y 变 换 为 直角 坐标 
dimian=line([-30 40],[h h],'linewidth',5,'color','k/); JA 


qiu-line(0,1,'marker','o','markersize',50,'linewidth',5,... 


'color','m','erasemode','xor!); 


LE E A 
$13 


dian=line(0+r*sin(0) ,1-r*cos(0) ,'‘marker markersize’,5,... 
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'color','b','erasemode','xor/); 
gan-line([0,rx*sin(0)],[1,1-r*cos(0)], linestyle','-',... 
'linewidth',5, ‘color’,'r’,’erasemode’,’xor’) ; 
L=[10 100 200]; n=length(t) ; 
for i-1:n*L(I) 
set (qiu,’xdata’,vx(i) ,’ydata’,1); 
set(dian,'xdata',xdian(i),'ydata',ydian(i)); 
set (gan,'xdata', [vx (i) , xdian(i)],'ydata', [1, ydian(i)]); 
drawnow 
pause(0.1) 
end 
cla 
end 
函数 文件 是 一 个 独立 的 文件 ,文件 名 为 yhgdfun.m , 
function varargout=yhgdfun(t,y,flag) 
switch flag 
case !' 
varargout{1}=f(t,y); 
case ‘events’ 
[varargout{1:3}]=events(t,y); 
otherwise 


error(['unknown flag’ "flag" '.']); 


end 


function ydot-f(t,y) 


R=1; 

ydot=[y (2) ; 
-0.2*9.8; 
yu; 
-0.2*9.8/R]; 


function [value,isterminal,direction]=events(t,y) 
R=1; 

value=y (2)+R*y (4); 

isterminal=1; 


direction=0; 
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2.22 惯量 椭 球 


1l. 实验 题目 
研究 长 方 体 刚 体 的 惯量 椭 球 . 


2. 实验 目 的 和 要 求 

(1) 画 出 匀 质 长 方 体 刚体 对 其 几何 中 心 点 B 的 惯量 椭 球 和 对 其 一 个 顶点 4 
的 惯量 椭 球 。 切 去 椭 球 的 1/8 ， 以 便 观察 三 个 惯量 主轴 的 方向 ,改变 长 方 体 边 
长 ,观察 椭 球 的 变化 .。 

(2) 求 出 长 方 体 以 角速度 w 绕 中 心 点 转动 时 ,长 方 体 对 瞬时 轴 的 转动 惯量 
MADEL. 

(3) 学 习 计 算 二 重 积 分 ， 学 习 椭 球 和 剖面 图 的 画 法 . 


3. 题目 分 析 


刚体 作 定 点 运动 ， 以 固定 点 O 为 原点 ， 建 立 与 刚体 固 连 的 坐标 系 Ozyz . 
对 OO 点 的 惯量 椭 球 的 方程 是 


Izat? + Tyyy vL +2Tyrry +21ysyz *- 21,2: = 1 


其 中 Izz, lyy, Izz 为 转动 惯量 ， Izy, Lyx, Tz we 是 三 个 惯量 积 . 


t = fff + as 
me eee 
fa fff sam 
Wee. = fff evan 
peie ond 
eee n 


SAE AR ot ON 3 EP AR RR op. 对 于 不 同 固定 点 , 转动 惯量 和 惯量 积 不 同 ， 
所 以 惯量 椭 球 形状 各 不 相同 . 
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图 2.47 和 图 2.48 分 别 是 以 长 方 体 某 一 顶点 4 和 几何 中 心 妃 为 固定 点 的 惯 
量 椭 球 。 下 面 计算 图 2.47 所 示 的 惯量 椭 球 ， 先 求 出 4 点 的 惯量 主轴 方向 。 


图 2.47 非 主 轴 坐 标 系 下 的 惯量 椭 球 图 2.48 主轴 坐标 系 下 的 惯量 椭 球 


建立 坐标 系 Aroyozo ， 各 坐标 轴 分 别 沿 长 方 体 的 三 条 边 。 该 坐标 系 不 是 惯 
量 主轴 坐标 系 ， 其 惯量 张 量 为 


Shey DEN Sly (EL 


-py —Iyz I; E À 


展开 后 可 求 得 本 征 值 入 , 2, 3 。 又 知 如 果 角 动 基 工 沿 主轴 方向 ， 即 本 征 矢 基 
的 方向 ， 则 必然 满足 下 列 方程 组 : 


(Ine — A)ug — Tauy — Inzwz = 0 


一 4zywz + (Lyy = 入 )wy 一 lyzWwz = 0 
一 人 zzwz — lyzWy 十 (Lz E A)u; z 
将 Ai 的 值 代 入 上 式 ， 可 求 出 本 征 矢 量 w 的 方向 . 
设 wiz 为 不 为 零 的 任意 值 ， 令 


Wig Wy 
ó y 


, 
Wiz Wiz 
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归 一 化 条 件 为 
wi, wiy tu}, =1 
可 知 


2 2 2 
QU; tu + Wy, =1 


=~ 
dm 


1 
(1 + o2 十 D2)12 


于 是 wi 的 方向 余弦 ( 主轴 坐标 系 的 主轴 的 方向 余弦 ) 为 


Wiz = 


Q11 = Wig = o 
11 iz (c o? +p): 2 


Q12 = Wily = aes 


= E 1 
13 = Wiz = tate)? 


同样 可 求 出 本 征 矢 量 w 和 ws 的 方向 余弦 分 别 是 (021, 022, 023) 和 ( 031; 
032, 033 ) . 
三 个 本 征 矢 量 的 方向 分 别 是 惯量 主轴 z 轴 、y 轴 和 z 轴 的 方向 。 三 个 本 征 
Í& Ai, A2, Xs 就 是 长 方 体 对 三 根 主轴 的 转动 惯量 . 在 4 的 主轴 坐标 系 中 ,惯量 
椭 球 的 方程 为 
Auc? kl oy” + Aaz? =1 


JB nt 55 ps 2E Be E, OEE De E E A FPS HB BR AY 86 ps TE 1 OS Te SE rp Bg 


椭 球 坐标 
| T | | Q11 O12 Q13 | | To | 
y | = | 0n 022 O23 Vo 
z O31 O32 Q33 zo 


惯量 椭 球 的 引入 有 利于 用 几何 方法 研究 刚体 的 定点 运动 ， 主 要 反映 在 以 下 
三 个 方面 。 

(1) 由 惯量 椭 球 ， 可 直接 得 到 固定 点 O 的 惯 基 主轴， 它们 是 惯 基 椭 球 的 三 
个 对 称 轴 . 若 以 惯量 主轴 作为 动 坐 标 系 的 坐标 轴 ， 椭 球 方程 变 成 


Lax + lyyy TL =1 


但 不 论 在 哪个 坐标 系 中 ， 椭 球 的 形状 不 会 发 生变 化 . 
(2) 借助 惯量 椭 球 ， 可 得 到 相对 任何 方向 的 瞬时 转轴 的 转动 惯量 hh ， = 
1/RR ， 呈 是 瞬时 轴 与 李 球 球面 的 交点 到 定点 O 的 距离 。 
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(3) 借助 惯量 椭 球 ， 可 确定 刚体 以 角速度 w 转动 时 的 角 动 量 工 的 方向 和 大 
小 。 工 指向 瞬时 轴 与 椭 球 面 交 点 的 外 法 线 方向 . 

已 知 角速度 co 的 大 小 和 方向 , 又 知 相对 此 方向 的 转动 惯量 , UU facit LE 
ww 方向 上 的 投影 为 


CO CO 
L,-L—-w.I.—-l,jw 
w w 


式 中 的 五 是 刚体 对 转轴 的 转动 惯量 . 由 于 w、 工 的 方向 和 Lg 都 是 已 知 的 ， 因 
此 可 以 得 到 工 的 大 小 . 

在 程序 中 ， 画 椭 球 是 利用 球 坐 标 系 。 画 剖面 图 的 方法 是 将 不 用 的 数值 取 为 
零 . 其 余 则 基本 上 是 按照 公式 计算 .程序 运行 的 结果 如 图 2.47 和 图 2.48 rn. 


4 BAR 
MU Bhs MX Eo ir, Hrm ae ER A ET ABR, FP FFP 9 
椭 球 相对 照 ， 判 断 你 的 分 析 是 否 正确 。 


5. 参考 程序 


主 程序 的 文件 名 是 gltq.m 。 
a-7; b=8; c=12; AAE 27 76 hia k 
fi-inline(x.xx*y.*y','x',' y); 4%X 两 个 被 积 函 数 


f£2=inline('x.*y’,’x','y’); 


figure(1) “AVA B 为 固定 点 的 主轴 坐标 系 下 的 惯量 椭 球 
set (gcf ,'unit','normalized','position',[0.4 0.3 0.6 0.6]); 


hold on 
title 主轴 坐标 系 下 的 惯量 椭 球 ) ; 
axis off 


view(-43,20) 


WW% 画 立方 体 
cubx1=[0,a,a,a,a,0,0,0,0]-a/2; cubx2=[0,0,a,a,a,a,0,0,0]-a/2; 
cuby1=[0,0,0,b,b,b,b,0,0]-b/2; cuby2=[0,0,0,0,b,b,b,b,0]-b/2; 
cubz1=[c,c,0,0,c,c,0,0,c]-c/2; cubz2=[c,0,0,c,c,0,0,c,c]-c/2; 
plot3(2*cubx1,2*cuby1,2*cubz1,'b’ , 2*cubx2, 2*cuby2,2*cubz2,’b’); 


Ix-0.001*a*dblquad(f1,-b/2,b/2,-c/2,c/2) XX 计算 惯量 张 量 
Iy=0.001*b*dblquad(f1,-a/2,a/2,-c/2,c/2) 
Iz=0.001*c*dblquad(f1,-a/2,a/2,-b/2,b/2) 
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n=40; %% 画 椭 球 的 数据 
phi=(-n:2:n)/n*pi; theta=(-n:2:n)'/n*pi/2; 
xm-Ix*cos(theta)*cos(phi); 
ym-Iy*cos(theta)*sin(phi); 


zm-Iz*sin(theta)*xones(1,n*1); 


for i=2:41 AAK HH SK B — E $6 B] A 0 形成 剖 


if theta(i)»O&theta(i)«pi/2 
ym(i,2:11)=0; xm(i,2:11)=0; 
end 
end 


surf (xm, ym, zm); 


p 


figure(2) 和 以 有 为 固定 点 的 一 般 坐 标 系 下 的 惯量 椭 球 


il 


set (gc£ ,'unit','normalized','position',[-0.1 -0.1 0.6 0 
title 一 般 坐 标 系 下 的 惯量 椭 球 D) 

axis off 

hold on 

view(-30,42) 


%% 画 立方 体 


.6] ) ; 


cubx1=[0,a,a,a,a,0,0,0,0]; cubx2=[0,0,a,a,a,a,0,0,0]; 
cuby1=[0,0,0,b,b,b,b,0,0]; cuby2=[0,0,0,0,b,b,b,b,0]; 
cubz1=[c,c,0,0,c,c,0,0,c]; cubz2=[c,0,0,c,c,0,0,c,c]; 
plot3(2*cubx1,2*cuby1,2*cubz1,'b',2*cubx2,2*cuby2,2*cubz2,'b’) ; 


AAD T E E Hi BK 
I(1,1) = 0.0004x*a*dblquad(f1,0,b,0,c); VT AES 
I(2,2) = 0.0004*b*dblquad(f1,0,a,0,c); 
I(3,3) = 0.0004*c*dblquad(f1,0,a,0,b); 
I(1,2) = 0.0004*-c*db1quad(f2,0,a,0,b); 
I(1,3) = -b*0.0004*dblquad(f2,0,a,0,c); 
I(2,3) = -a*0.0004*dblquad(f2,0,b,0,c); 
I(2,1) = 1(1,2); 1(3,1) = 1(1,3); I(3,2 = I(2,3); 


o-0.35*pi; p=0.4*pi; hh 与 坐标 轴 的 夹 角 
l = cos(o); m = cos(p); n = sqrt(1-1^2-m^2); 


量 张 量 各 个 分 量 


%% 方 向 余弦 


yr} 
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[j,k] = eig(I) WORE AGERE 
disp 转动 惯量 : ^) 

IL = [1,m,n] * I * [1,m,n]' ‰y 求 转动 惯量 
n=40; AAE HH BR BY Bee 


phi=(-n:2:n)/n*pi; 
theta-(-n:2:n)'/n*pi/2; 
x-I(1,1)*cos(theta)*cos(phi); 
y=1(2,2)*cos (theta) *sin(phi) ; 
z=1(3,3)*sin(theta) *ones(1,n+1); 


for i=2:41 AAE RA — 36 26 ES NRA 0 形成 剖面 图 
if theta(i)»O&theta(i)«pi/2 
y (i, 22:31)=0; x(i,22:31)=0; 
end 
end 
for i-1:3 %% 作 坐标 变换 


alfa=j(1,i)/j(3,i); 

blta=j(2,i)/j(3,i); 
apha(i,1)-alfa/(sqrt(1*alfa^2*b1ta^2)); 
apha(i,2)-blta/(sqrt(1*alfa^2*b1ta^2)); 
apha(i,3)-1/(sqrt(1*alfa^24b1ta^2)); 


end 


xx-[ 1; yy=[]; zz=[ ]; 
for f=1:n+1 
for g-i:n*i 
ass-apha*[x(f,g);y(f.g);z(f,g)]; 
xx(f,g)-ass(1);  yy(f,g)-ass(2);  zz(f,g)-ass(3); 
end 
end 


surf(xx,yy,zz); 4% E E: 
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2.03 欧 拉 角 


l. 实验 题目 
演示 如 何 用 欧 拉 角 确定 定点 运动 刚体 的 位 置 。 


2. RA A ex 

(1) 演示 固 连 在 刚体 上 的 坐标 系 按 欧 拉 角 转动 的 图 像 . 
(2) 学 习 指 令 rotate 的 用 法 。 

(3) 学 习 对 图 形 句 柄 操作 的 指令 如 get, gea S, 


3. 题目 分 析 

欧 拉 角 是 描述 定点 运动 刚体 位 置 的 三 个 变量 . 以 固定 点 为 原点 建立 静止 坐 
标 系 0 上 6 ， 再 以 固定 点 为 原点 建立 与 刚体 固 连 的 运动 坐标 系 Ozyz ， 确 定 刚 体 
的 位 置 等 价 于 确定 运动 坐标 系 的 位 置 。 Oz 轴 的 位 置 用 两 个 夹 角 确 定 ， 一 个 是 
Oz HHA Oc 轴 的 夹 角 9 ， 另 一 个 是 Oxy 面 和 Oin 面 的 交 线 C 称 为 节 线 ) OE 
轴 的 夹 角 ww ， 当 Oz 轴 的 位 置 确定 后 ， 只 要 Oz HPA ON 的 夹 角 定 下 来 ， 则 
运动 坐标 系 Ozyz 的 位 置 就 定 下 来 , 刚体 的 位 置 就 定 下 来 了 ， 0.v.v FR 
f (UL 2.49). 三 个 角 的 变化 范围 是 0<0<ri 0<p<2rmr 0<<2r。 


图 2.49 用 欧 拉 角 表示 的 刚体 定点 转动 


程序 中 演示 的 顺序 是 首先 使 OF 轴 绕 OG 轴 和 转动 o 角 ， 到 达 节 线 ON 的 位 
P 接着 OC 轴 绕 节 线 ON 转动 6 角 到 达 Oz 轴 的 确定 位 置 ; 最 后 Ox 轴 绕 Oz Hh 
转动 角 到 达 Oc 轴 的 最 后 确定 位 置 . 程序 中 的 三 个 欧 拉 角 的 大 小 可 以 任意 改 
变 , 同时 可 以 在 窗口 任意 转动 图 像 所 标注 的 字母 也 会 随 之 转动 。 
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4. & 
三 个 欧 拉 角 的 转动 是 否 有 先后 顺序 ， 为 什么 ? 


5， 参 考 程 序 

主 程序 的 文件 名 是 eljm 。 

a=40; b=15; c=60; %%X 三 个 欧 拉 角 

N=100; 

t-0:pi/30:2*pi; L-length(t); 

xi-cos(t); yi=sin(t); zi-zeros(1,L); We GE Eg E] 


figure 

axis([-1 1 -1 1 -1 1]) 

hold on 

view(116,33) 

hi-plot3(xil,yi,z1,'r',[-1,1],[0,0], [0,0] ,m', ... 
[0,0] , [71,11, [0,0], 7/, [0,0] , [0,01, [0, 1.5] , 7) ; 
%% 画 开始 的 xyz fü 

text(1.1,0,0,’x’,’fontsize’,14) 

text(0,1.1,0,'y’,’fontsize’,14) 

text(0,0,1.6,'z','fontsize',14) 


hi=get(gca,’children’) ; %%X 获 得 当前 轴 下 的 全 部 子 对 象 的 句柄 
for k=1:N 
A=a/N; 
rotate(h1,[0 90] ,A, [0 0 0]) %% 转 v fü 
pause(0.1) 
end 
h2-get (gca,’children’) ; %Y 获 得 当前 图 形 轴 下 的 全 部 子 对 象 的 句柄 
xx = get(h2(6) ,/xdata’) ; %% 获 得 节 线 数据 
yy = get(h2(6) ,’ydata’) ; 
zz = get(h2(6) ,/zdata’) ; 
plot3(xx,yy,zz,'g) LLE 节 线 
plot3(x1,y1,z1,’b :',[-1,1],[0,0],[0,0],’k :’,... %y 重 画 原 坐标 系 


[0,0],[-1,1],[0,0],’b :’,[0,0],[0,0],[0,1.5],’b :’); 
text(1.1,0,0,' xi','fontsize',14) 
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text(0,1.1,0,'\eta’,’fontsize’,14) 

text (0,0,1.6,'\zeta’,/fontsize’,14) 

aa=a*pi/180; %% 画 p fü 
plot3([0.2,0.2*cos(aa)], [0,0.2*sin(aa)], [0,0]) 
text (0.25,0.08,0,'\phi’,’fontsize’, 14) 

pause (1) 


for k=1:N 
B=b/N; 
rotate(h2,[a 0],B,[0 0 0]) Wu 9 ff 
pause(0.1) 


end 


h3=get (gca,'children’) ; 

cc=b/180*pi; 14m 0 ffü 

plot3([0.2xsin(cc)*sin(aa),0],... 
[-0.2*sin(cc)*cos(aa) ,0] , [O.2*cos(cc) ,0.3]) 

text (0.05,-0.06,0.4,'\theta’ ,/fontsize’,14) 

pause (1) 


for k=1:N 
C=c/N; 
rotate(h2,[(270*a) (90-b)],C,[0 0 0]) %% 转 v fü 
pause(0.1) 

end 

h4-get (gca ,'children'); 

bb-c /180*pi; whe v fü 


plot3([0.3x*cos(aa) ,0.3*(cos (bb)*cos (aa) -sin(bb)*cos(cc)*sin(aa))],... 


[0.3«sin(aa),0.3*(cos(bb)*sin(aa)*sin(bb)*cos(cc)*cos(aa))],... 
[0,0.3*sin(bb)*sin(cc)]) 
text (0.25,0.28,0,’'\psi’,'fontsize’, 14) 
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2.24 圆锥 陀螺 运动 


1， 实 验 题目 
研究 拉 格 朗 日 一 泊 松 情况 下 的 陀螺 运动 , 即 匀 质 圆锥 陀螺 在 重力 场 中 的 运动. 
如 图 2.50 所 示 ， 设 陀螺 的 顶点 为 固定 点 O ， 高 为 六 ， 圆 锥 底面 半径 为 R, 密度 为 


p， 则 其 质量 为 m = phR?, 质心 在 动力 对 称 纳 上 ， 距 固定 点 O 的 距离 为 1= h. 


图 2.50 圆锥 陀螺 的 运动 


将 


实验 目的 和 要 求 

动画 演示 圆锥 陀螺 在 重力 场 中 的 章 动 和 进 动 。 

出 在 不 同 初 始 条 件 下 对 称 轴 端 点 的 三 种 不 同 的 轨迹 . 

习 子 函数 的 应 用 , 本 节 是 在 主 程序 中 用 子 函 数 来 表示 坐标 变换 函数 . 
习 用 指令 cylinder 画 圆 锥 . 


E 


Y 


——— o — h2 
一 - N 
Sa A AM ae 


4k Rat E 


3， 解 题 分 析 

以 陀螺 的 固定 点 O 为 原点 建立 藤 止 坐标 系 Oin ， 以 O 点 为 原点 ， 选 取 陀 
螺 的 对 称 轴 为 Oz 轴 , 取 节 线 为 Oz FH, 建立 与 刚体 半 固 连 的 主轴 坐标 系 Ozyz ， 
VAS by A REE MR VE SH A PEE», NERC Ae. 

BERR AY eS BA OW L-T-V, ARAMA BEA HI 


1 
P= 3 (Is? + Tywy + Izo?) 


V = mgl cos0 
角速度 的 投影 为 
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" _ dé 
” dt 
de . 
wy = c gno 
_ dọ dy 
w: = g I t 


式 中 9, wp, 分 别 为 陀螺 的 童 动 角 、 进 动 角 和 上 自 转角。 由 此 得 


EE dé dy dy dw 
L-3 |z (2) + Ty (Sue) ZI: cos 6 + + ] mgl cos 0 


其 中 


h 2n zh 
ksta of az f a f ] (2? +r? sin? 8)rdr = phi R + p= hR! 
^ 6 6 5 20 


h 20 aR T 
E of az f a f r3dr = p—hR‘ 
0 0 0 10 


运动 微分 方程 为 
2 =(1- a ey sin 0 cos 0 一 acest sin Q + bg sinÓ 
re =(a- jo ctgÜ EZY (2.24.1) 
oe - E © sind — (a — 2) ctgÓ cos 0] amt ctgÜ 
其 中 


I, 2 ml 5ph 
-—— 2 5-4 ee 
Ty 4h? /R? +1 I, 4h? +R 


& yi — 0, yo — d6/dt, ys = p, ys = dy/dt, ys = v, ys = dv/dt 


得 
dps _ 
dt ya 
dy» m 9. a E 
aed (1 — a)(y4)* sin yı cos y1 — ayaye sin yi + bg sin yı 


, v. (a — 2)ysy4 ctgyi di y2y6 


nyi 


xm yoya[sin yı — (a — 2) ctgW cosi] — aysye ctgyi 
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这 个 微分 方程 的 解法 很 简单 ， 主 要 的 问题 是 如 何 作出 动画 。 从 2.23 市 欧 拉 
角 的 介绍 中 可 知 , 如 果 以 圆锥 的 顶点 为 原点 建立 一 个 静止 坐标 系 , 再 以 圆锥 的 顶 
点 为 原点 建立 一 个 与 刚体 固 连 的 动 坐标 系 ， 则 圆锥 表面 上 一 点 的 坐标 mo. yo. zo 
在 动 坐标 系 中 是 一 个 常数 ， 而 这 点 在 静止 坐标 系 中 的 坐标 x,y,z 则 可 以 通过 欧 
拉 角 表示 的 坐标 变换 来 得 到 ， 从 几何 关系 可 以 得 出 ， 这 个 坐标 变换 关系 是 


x = Xo(cosy cosy — sin cos sin y)+ 

yo(— sin Y cos y — cos tb cos @ sin Y) + zo sin sin y 

y = Xo(cos Y cos q + sin cos 0 cos op) 十 (2.24.2) 
yo(— sin w sin y + cosy) cos 6 cos p) + zo(— sin 8 cos p) 


z = «o sin sin 9 + yo cos i sin 0 + zo cos 0 


若 将 从 微分 方程 中 解 得 的 欧 拉 角 随时 间 变 化 的 规律 9 = ot), o = vt), v = v(t) 
代入 ， 就 得 出 此 点 相对 静止 坐标 系 的 运动 规律 . 在 主 程序 中 ， 按 照 这 个 公式 建 
立 了 一 个 子 函 数 来 计算 运动 中 圆锥 表面 上 各 点 在 静止 坐标 系 中 的 坐标 . 


4. BAR 


请 自己 推导 微分 方程 组 (2.24.1) 和 变换 关系 (2.24.2) . 


5. 参考 程序 

主 程序 的 文件 名 是 tlyd.m . 

function tlyd 

axis([-1 1 -1 1 0 1]); 

hold on; 

text(0,2,0.8,' PERR iE ',’fontsize’,40,'color’,’r’); 


grid on; 
[x0, y0,z0]=cylinder(0:.05:.5,60); V FE IR 4n] E WY 3X 38 PUE 
Q=linspace(0,2*pi,60) ; %% 以 下 四 名 是 陀螺 上 表面 的 数据 网 格 


cx0=0.5*cos(Q); 

cy0=0.5*sin(Q); 

cz0=ones (1,60); 

phi = 0; thi = pi/6; psi = 0; 

[x,y,z] = zbbh(x0,y0,z0,thi,phi,psi); 和 陀螺 初始 位 置 侧 面 数据 
[cx,cy,cz] = zbbh(cx0,cy0,cz0,thi,phi,psi); 入 陀螺 初 位 置 上 表面 数据 
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hi= surf(x,y,z); 以 画 初 始 位 置 陀螺 侧面 
h2-fill3(cx,cy,cz,[0.8 0.8 0.8]); VL ei EE E 
pause(0.5); 
R= 1; h= 2; p= 1; g-9.8; 和 陀螺 的 参数 


a-2/(4*h^2/R^241); b-5*pxh/(4xh^24R^2); 
[t,u] = ode45('tlydfun',[0:0.1:25], [thi 0 phi O psi 75],[ 1,a,b,g); 
fori-1: length(u); 
%y 求 陀螺 新 位 置 侧面 数据 
[x,y,z] = zbbh(x0,y0,z0,u(i,1),u(i,3),u(i,5)); 
%y 求 陀螺 新 位 置 上 表面 数据 
[cx,cy,cz] = zbbh(cx0,cy0,cz0,u(i,1),u(i,3),u(i1,5)); 


set (h1,'xdata',x,'ydata',y,'zdata',z) ; %Y 画 新 位 置 陀螺 
set (h2,'xdata’,cx,'ydata',cy,’zdata’,cz) ; 
drawnow; 
end; 
text(-1.4,0,' 结束 ','fontsize',40,'color','r^); 
function [x,y,z] = zbbh(x0,y0,z0,thi, phi,psi) WY 坐标 变换 子 函 数 


x-xO*(cos(psi)*cos(phi)-sin(psi)*cos(thi)*sin(phi))... 
*yO*(-sin(psi)*cos(phi)-cos(psi)*cos(thi)*sin(phi))... 
+z0*sin(thi)*sin(phi) ; 
y=x0* (cos (psi) *sin(phi)+sin(psi)*cos(thi)*cos(phi))... 
+y0*(-sin(psi)*sin(phi)+cos (psi) *cos(thi)*cos(phi))... 
-z0*sin(thi) *cos (phi); 
z=x0*sin(psi)* sin(thi)+y0*cos(psi)*sin(thi)+z0*cos(thi) ; 
函数 文件 是 一 个 独立 的 文件 ,文件 名 为 tydfun.m . 
function y = tlydfun(t,u,flag,a,b,g) 
y = [u(2); 
(1-a)*u(4)^2*xsin(u(1))*cos(u(1))... 
-axu(4)*u(6)*sin(u(1))*b*g*sin(u(1)); 
u(4); 
(a-2)*u(2)*u(4)*cot (u(1)) *a*u(2) *u(6) /sin(u(1)) ; 
u(6); 
u(2)*u(4)*(sin(u(1))-(a-2)*cot (u(1))*cos(u(1))) ... 
-a*u(2)*u(6)*cot(u(1))1; 
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A0 主要 指令 分 类 


general 通用 指令 graphics ”通用 绘图 函数 

ops 运算 符 和 特殊 算 符 uitools 图 形 用 户 界面 工具 
lang 程序 语言 结构 和 调试 指令 strfun 字符 串 函 数 

elmat FEAR AE EERE iofun 底层 文件 输入 / 输出 函数 
elfun 基本 数学 函数 timefun 时 间 和 日 期 

specfun ”特殊 数学 函数 datatypes ”数据 类 型 和 结构 
matfun 和 矩阵 函数 和 数值 线性 代数 winfun 窗口 操作 系统 界面 文件 
datafun ”数据 分 析 和 侍 里 叶 变 换 sounds ”声音 处 理 函 数 

polyfun 多 项 式 与 插 补 函数 dde 动态 数据 交换 函数 
funfun 非 线性 数值 功能 函数 local 主 启动 文件 

sparfun Pi FFE KERR A demos 演示 函数 

graph2d ”二 维 图 形 pde 偏 微分 方程 工具 箱 
graph3d ”三 维 图 形 symbolic ”符号 运算 工具 箱 


specgraph ”特殊 作 图 函数 
Al 常用 指令 ( General Purpose Commands) 


All 管理 指令 和 函数 (Managing Commands and Functions) 


addpath 添加 搜索 路 径 path 控制 搜索 路 径 
doc 显示 超 文 本 帮助 pathtool 路径 管理 器 
help 在 线 帮助 指令 profile 运行 记录 
helpdesk ”在 线 帮 助 桌面 profreport ”产生 运行 记录 的 报告 
helpwin 在 线 帮助 窗口 rmpath 删除 某 搜索 目录 
lasterr 最 后 的 错误 信息 type 显示 文件 内 容 
lastwarn 最 后 的 警告 信息 web 给 出 浏览 器 或 主页 地 址 
lookfor 关键 词 检索 whatsnew 显示 README 文件 
partialpath ”局 部 路 径 名 which 确定 指令 和 文件 的 位 置 
what AE m, mat, mex 文件 

A1.2 变量 和 内 存 空间 的 管理 (Managing Variables and the Workspace) 
clear 从 内 存 中 清除 变量 和 函数 pack 合并 工作 内 存 中 的 碎 块 
disp 显示 和 矩阵 和 文字 内 容 save 把 内 存 变 量 存 入 磁盘 
length ”确定 矢量 的 长 度 saveas 存储 图 形 或 模型 
load 从 磁盘 中 调 入 数据 变量 size 确定 矩阵 的 维 数 
mlock 使 M 文件 免 删 除 who,whos ” 列 出 工作 内 存 中 的 变量 名 


munlock A M 文件 被 删除 workspace ”工作 内 存 浏览 器 
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openvar ”打开 工作 内 存 中 的 变量 
A1.3 指令 窗 控 制 (Controlling the Command Window) 


Ac 清除 指令 窗口 echo ”执行 M 文件 时 显示 的 切换 开关 
home ”光标 返回 行 首 more ”指令 窗 分 页 输出 的 控制 开关 


format ”设置 数据 输出 格式 
Al.4 调用 操作 系统 和 文件 处 理 (Working with Files and the Operating System) 


cd 改变 当前 工作 目录 inmem 内 存 中 的 函数 

copyfile ”复制 文件 matlabroot ”MATLAB 所 在 的 根 目录 
delete 删除 文件 mkdir 建立 目录 

diary 储存 工作 窗 操作 内 容 open 打开 文件 

dir 列 出 的 文件 pwd 显示 当前 目录 

edit 和 矩阵 编辑 器 tempname ”临时 文件 名 

fileparts ”文件 的 路 径 、 名 称 等 f 执行 外 部 应 用 程序 


fullfile 文件 的 全 部 信息 

Al5 MATLAB 的 启动 和 终止 (Starting and Quitting from MATLAB) 
matlabrc MATLAB 的 主 启 动 文 件 startup ”启动 时 自动 执行 M 文件 
quit 退出 MATLAB 

A2 iB 5 A 4045 RH 44 (Operators and Special Characters) 

A2.1 常用 符号 (Operators and Special Characters) 


+ An 小 数 点 
减 vos BEATS 
3 AR eae ; X 
i 数组 乘 分 号 
à 矩阵 乘 方 % aS 
^ 数组 乘 方 ! 惊叹 号 
\ 左 除 ' 转 置 号 和 引号 
/ 右 除 dEdtSu FERE 
JN ZAE CAL) 除 = 赋值 符号 
kron ” 张 量 积 = 二 ”等 号 
IM -— 
( 2 圆 括号 | 逻辑 或 
[ 1 方 括号 ~ ”逻辑 非 
t) 花 括 号 xor ”逻辑 异 或 
A2.2 逻辑 操作 (Logical Characteristics) 
all 全 非 零 元 矢量 为 真 is * 查询 状态 
any 有 非 零 元 的 矢量 为 真 isa 查询 对 象 的 分 类 
exist ”检查 变量 或 函数 是 否 被 定义 logical 把 数值 型 转 为 逻辑 型 
find ， 找 出 非 零 元 素 的 下 标 mislocked 4 M 文件 不 能 被 删除 时 为 真 


A3 语言 结构 和 调试 指令 ( Language Constructs and Debugging) 
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A3.1 编程 语言 (MATLAB as a Programming Language) 


builtin ”用 超载 方法 运行 内 部 函数 function 函数 文件 头 
eval 字符 串 宏 指 令 global 定义 全 局 变量 
evalc ”对 输入 的 表达 式 求 值 nargchk ” 输入 变量 个 数 检查 
evalin ”对 工作 内 存 中 的 表达 式 求 值 persistent ”定义 永久 变量 
feval 函数 宏 指令 script 命令 文件 
A3.2 控制 语句 (Control Flow) 
break ”终止 最 内 循环 if 条 件 执行 语句 
case case 选择 return 返回 
else 同 IF 一 起 使 用 switch 开关 
elseif [a] IF 一 起 使 用 try 开始 try 块 
end 结束 FOR 、 WHILE, IF 语句 warning ”显示 警告 信息 
error ”显示 错误 信息 while 不 确定 次 数 重复 执行 语句 


for 按 规定 次 数 重复 执行 语句 
A3.3 交互 式 输入 (Interactive input) 


input 提示 键盘 输入 menu ”创建 菜单 
keyboard ”激活 键盘 作为 命令 文件 pause ”暂停 

A3.4 面向 对 象 编程 (Object-oriented programming) 
class 创建 新 类 或 返回 对 象 的 类 int8(16,32) — 转 为 符号 整数 
double 转换 为 双 精 度 型 saveobj 存储 对 象 的 滤波 器 
inferiorto ”类 关系 运算 符 single 转 为 单 精 度 型 
inline 创建 在 线 对 象 superiorto 类 关系 运算 符 


loadobj 为 用 户 对 象 扩充 的 下 载 函 数 unit8(16,32) — $73 8,16,32 位 型 
A3.5 调试 指令 (Debugging Commands) 


dbclear ”清除 断 点 dbstack ” 列 出 调用 堆栈 

dbcont ”恢复 执行 dbstatus ” 列 出 所 有 的 断 点 
dbdown ”改变 局 部 工作 内 存 的 前 后 关系 dbstep 单 步 执行 

dbmex ”调试 MEX 文件 dbstop WEBA 

dbquit 结束 调试 模式 dbtype — 列 出 带 行 号 的 M 文件 


dbup 改变 局 部 工作 内 存 的 前 后 关系 
A4 基本 矩阵 函数 和 操作 (Elementary Matrices and Matrix Manipulation) 
A4.1 ##+#e%(Elementary Matrices) 


blkdiag 用 输入 量 建立 块 对 角 矩 阵 rand ”均匀 分 布 随机 阵 
eye 单位 阵 randn ” 正 态 分 布 随机 阵 
linspace ”线性 等 分 矢量 zeros REME 

logspace ”对 数 等 分 矢量 生成 等 间距 矢量 


ones 全 1 FE 
A4.2 特殊 变量 和 常数 (Special Variables and Constants) 
ans 最 新 表达 式 的 运算 结 nargin 函数 输入 参量 的 个 数 
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EX 


HE 


computer ”计算 机 类 型 
eps 浮 点 相对 误差 
flops 浮 点 运算 次 数 
i, j 虚数 单位 
Inf 无 穷 大 
inputname 输入 变量 名 
NaN 非 数 
A4.3 时 间 和 日 期 (Time and Dates) 
cakendar 日 历 
clock 时 钟 
cputime MATLAB 占用 CPU 时 间 
date 日 期 
datenum ”日 期 数字 系列 
datestr 日 期 字符 串 格 式 
A4.4 矩阵 操作 (Matrix Manipulation) 
cat 数组 组 合 
diag 创建 对 角 阵 ， 抽 取 对 角 矢 
fliplr 和 矩阵 的 左右 翻转 
fipud ”和 矩阵 的 上 下 翻转 
repmat ”复制 和 编排 矩阵 
A4.5 45442 1#( Specialized Matrices) 
compan 伴随 矩阵 
gallery 一 些小 测试 矩阵 
hadamard Hadamard 和 矩阵 
hankel Hankel 4f [A 
hilb Hilbert 矩阵 


A5 基本 数学 函数 ( Elementary Math Functions) 


nargout 
pi 
realmax 
realmin 
varargin 


varargout 


datevec 
eomday 
etime 
tic 

toc 


weekday 


reshape 
rot90 
tril 


triu 


invhilb 
magic 
pascal 
toeplitz 


wilkinson 


A5.1 三 角 和 超越 函数 (Trigonometric and Hyperbolic) 
abs 绝对 值 floor 
acos,acosh ÆI, MAHAI gcd 
acot Jacoth RAY, MOH imag 
acsc,acsch 反 余 割 ， 反 双 曲 余 割 lcm 
asec, asech AIER), MOX H IEI log 
asin, asinh ”反正 弦 ， 反 双 曲 正弦 log2 
atan, atanh 反正 切 ， 反 双 曲 正切 log10 
atan2 四 象限 反正 切 mod 
ceil 向 正 无 穷 大 取 整 nchoosek 
complex 由 实 部 和 虚 部 构造 虚数 real 
conj BUR 266 rem 


函数 输出 参量 的 个 数 
3.1415926535897 ... 
最 大 浮 点 数 

最 小 正 浮 点 数 

输入 变量 数 

输出 变量 数 


日 期 分 量 
月 来 
计算 机 内 部 时 钟 
秒表 起 动 

》 表 终止 和 显示 
星期 几 


和 矩阵 变 维 

和 矩阵 道 时 针 旋转 90° 
抽取 下 三 角 阵 
抽取 上 三 角 阵 

和 矩阵 的 援引 和 重 排 


jit Hilbert 和 矩阵 

幻 方 阵 

Pascal 矩阵 

Toeplitz 矩阵 
Wilkinson’s 特征 值 矩 阵 


PARC PE 
最 大 公 因 子 
复数 虚 部 
最 小 公 倍数 
自然 对 数 

以 2 为 底 的 对 数 
常用 对 数 
二 项 式 系数 
复数 的 实 部 
除法 的 余数 
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cos, cosh RIZ, WRX round ABE 
cot, coth 余 切 ， 双 曲 余 切 sec, sech č EÑ), HIER 
csc,csch RE, OCHRE sin, sinh 正弦 ， 双 曲 正弦 
exp 指数 sqrt 平方 根 
fix 朝 零 取 整 tan, tanh ”正切 ， 双 曲 正切 
sign 符号 函数 

A5.2 特 珠 数学 函数 (Specialized Math Functions) 
airy Airy 函数 erf,erfc,erfcx 误差 函数 值 
besselh Hankel 函数 expint 指数 积分 函数 
besseli, besselk ”改进 的 Bessel 函数 factorial 阶乘 函数 
besselj bessely Bessel 函数 gamma,gammainc Gamma 函数 
beta, betainc Beta 函数 gammaln Gamma 函数 对 数 
betaln Beta 函数 的 对 数 legendre Legendre 函数 
ellipkj Jacobi 椭圆 函数 pow2 求 2 BE 
ellipke 完全 的 椭圆 函数 rat rats 有 理 近 似 

A6 坐标 系统 转换 (Coordinate System Conversion) 
cart2pol ”直角 坐标 到 极 坐标 的 转换 pol2cart ” 极 坐 标 到 直角 坐标 的 转换 
cart2sph ”直角 坐标 到 球 坐标 的 转换 sph2cart ” 球 坐 标 到 直角 坐标 的 转换 


AT 矩阵 函数 和 数值 线性 代数 (Matrix Functions 一 Numerical Linear Algebra) 
AT.l 42447 (Matrix Analysis) 


cond 4B ERE PL rank 秩 

condeig ”和 本 征 值 相关 的 条 件数 rcond 逆 条 件数 

det 行列 式 的 值 rrefrrefmovie ”转换 为 行 阶梯 形 
norm fi ER RSI subspace 两 个 子 空间 的 角度 
null 零 空间 irace 迹 


orth 正 交 化 空间 
A7.2 线性 方程 (Linear Equations) 


chol ”Cholesky 分 解 lsqnonneg ” 非 负 最 小 二 乘 解 
inv AR EA ee pinv yx 
lscov ”已 知 协 方差 的 最 小 二 乘 解 qr QR. 分解 
lu LU 分 解 
A7.3 本 征 值 与 奇异 值 (Eigenvalues and Singular Values) 
balance ”改善 特征 值 精度 的 平衡 刻度 qz 广义 特征 值 
cdf2rdf ”复数 对 角 型 转换 到 实 块 对 角 型 rsf2csf “ 实 对 角 型 转 成 复 对 角 型 
eig 和 矩阵 特征 值 和 特征 矢量 schur ”Schur 分 解 
hess Hessenberg 和 矩阵 svd 奇异 值 分 解 


poly 求 指定 根 的 特征 多 项 式 
A7.4 矩阵 函数 (Matrix Functions) 
expm 和 矩阵 指数 logm A EP EC 
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fanm ”计算 一 般 矩 阵 函 数 sqrtm 和 矩阵 平方 根 
A7.5 低级 函数 
qrdelete ”从 QR 分解 中 删除 列 qrinsert 从 QR 分 解 中 加 入 列 


A8 数据 分 析 和 傅 里 叶 变 换 (Date Analysis and Fourier Transform Functions) 
A8.1 AX i5 X (Basic Operations) 


convhull MÆRK% perms 所 有 可 能 的 排序 
cumprod ”累计 积 polyarea 多边形 的 面积 
cumsum 累计 和 primes 生成 质数 列表 
cumtrapz ”累计 梯形 积分 prod 元 素 积 
delaunay ”Delaunay 三 角 化 sort 由 小 到 大 排序 
dsearch 求 最 近 点 sortrows ”将 行 按 升序 排列 
factor 质数 分 解 std 标准 差 
inpolygon ”搜索 多 边 形 内 的 点 sum 元 素 和 
max 最 大 值 trapz 梯形 数值 积分 
mean 平均 值 tsearch 搜索 Delaunay 三 角形 
median 中 值 var 偏差 值 
min 最 小 值 voronoi ”Voronoi 图 
A8.2 有 限 差 分 (Finite differences) 
del2 ”离散 Laplacian 算 子 gradient ”梯度 


diff 差分 和 近似 微分 
A8.3 相关 (Correlation) 


corrcoef ”相关 系数 cov ” 协 方差 矩阵 

A8.4 滤波 和 卷 积 (Filtering and Convolution) 
conv ” 卷 积 和 多 项 式 相 乘 filter ”一 维 数字 滤波 器 
conv ”二 维 卷 积 filter2 ”二 维 数字 滤波 器 


deconv ” 解 卷 和 多 项 式 相 除 
A8.5 442° = d&(Fourier Transform) 


abs 幅 值 ifft 离散 傅 里 叶 反 变换 
angle —— 相 角 ift2 二 维 离散 储 里 叶 反 变换 
cplxpair 复数 阵 成 共 罗 对 形式 排列 ifftn 多 维 离散 健 里 叶 反 变换 
fft 快速 离散 傅 里 叶 变 换 ifftshift X fftshift 移动 

fft2 二 维 离散 传 里 叶 变换 nextpow2 ”最 近邻 的 2 Bue 

fftn 多 维 离散 健 里 叶 反 变换 unwrap 相位 角 360” 线 调整 


fftshift “将 熏 的 直流 分 量 移 到 谱 中 心 
A8.6 夭 量 运算 (Vector Operations) 


cross 矢量 又 积 setxor ” 求 两 个 矢量 的 异 或 
intersect 两 个 矢量 的 交 union — 求 两 个 矢量 的 并 
ismember 检查 集合 的 元 素 unique ”返回 矢量 的 元 素 值 


setdiff 两 个 集合 的 差 集 
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A9 多项式 与 持 补 函数 (Polynomial and Interpolation Functions) 
A9.1 多 项 式 (Polynomials) 


conv 多 项 式 相 乘 plyval 求 多 项 式 的 值 
deconv ”多 项 式 相 除 polyvalm KEEL HRANE 
poly 由 根 创建 多 项 式 residue 求 部 分 分 式 表 达 
polyder ”多 项 式微 分 roots 求 多 项 式 的 根 


polyfit — 多 项 式 拟 合 
A9.2 数据 插 补 (Data Interpolation) 


griddata ”三维 分 格 点 数据 interpn 多 维 插 补 

interp1 一 维 插 补 mesherid ”产生 三 维 图 形 的 XY 和 矩阵 
interp2 ”二 维 插 补 ndgrid 产生 多 维 函数 和 插 补 的 数据 
interp3 三 维 搬 补 spline 三 次 样 条 插 补 


interpft ”利用 FFT 方法 一 维 插 补 
A10 非 线 性 数值 功能 函数 (Function Functions—NonLinear Nnmerical Methods) 


dblquad 二 重 积分 odefile 定义 微分 方程 问题 
fminbnd 单 变量 函数 最 小 值 odeget 获取 选项 设置 的 内 容 
fminsearch 多 变量 函数 最 小 值 odeset 解 微分 方程 的 选项 
fzero 单 变量 函数 的 零点 quad, quad8 数值 积分 
ode23,0de45,0de113 ” 解 非 刚 性 微分 方程 ”vectorize 将 表达 式 矢量 化 
odel15s,ode23s 解 刚性 微分 方程 ode23t,ode23tb ” 解 刚 性 微分 方程 


All #3442 3 & (Sparse Matrix Functions) 
A11. AA 4f$3&4ERE(Element Sparse Matrices) 


spdiags NOW £8 KEJE X Riad ME sprandn TEAS RORIS BL BE 
speye Ri 5r e sprandsym fiib PRBBELIE 


sprand fF REL 
A11.2 ARS HAE ig E 4R(Full to Sparse Conversion) 


find | 寻找 非 零 元 素 下 标 sparse BE Pei BE 

full FE Prt HR TCR EE spconvert FE Pia EPR EI EXC 
A113  4&3&AB ME AER 7.494638 (Working with Nonzero Matrices of Sparse Matrices) 

nnz 非 零 元 素 个 数 spalloc ”为 非 零 元 素 分 配 存储 器 

nonzeros JES TCR spfun = 非 零 元 素 进行 函数 计算 


nzmax ”为 非 零 元 素 分 配 的 存储 器 数 spones JH 1 代替 非 零 元 素 
All.4 稀 跤 矩阵 的 可 视 化 (Visualizing Sparse Matrices) 

Spy fini Men AB SR 
A11.5 排序 算法 (Reordering Algorithms) 


colmmd ” 列 最 小 度 排序 randperm ”随机 置换 矢量 
colperm 基于 非 零 算法 列 排序 symmmd ”对 称 最 小 度 排 序 
dmperm Dulmage-Mendelsohn 分 解 symrcm 反 向 Cuthil1-McKee 排序 


A11.6 范 数 、 条 件数 和 秩 ( Norm,condition Number, and Rank) 
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condest (iti 1 条 件数 normest hit 2 范 数 

Al1.7 RMA RAR (Sparse Systems of Linear Equations) 
bicg TAREE BE BEDS pcg TALIE ST Pp BEY 
bicgstab WALT RS BET EE qmr Quasi-Minimal £351: 
cgs SIRES BE qr 正 交 三 角 分 解 
cholinc 不 完全 Cholesky 分 解 qrdelete “删除 QR. 分 解 中 的 列 
cholupdate ”一 阶 Cholesky 分 解 更 新 drinsert — 插入 QR 分解 中 的 列 
gmres 标准 化 最 小 残 差 法 qrupdate ”一 阶 QR 分解 更 新 
luinc 不 完全 LU 分 解 


Al1.8 稀 跌 和 矩阵 本 征 值 和 奇异 值 (Sparse Eigenvalues and Singular Values) 


eigs ” 求 本 征 值 和 本 征 矢量 
A11.9 XT fh SR 4B 49 X- 6.48 4 (Miscellaneous) 
Mt Rt ERE" ES 


spparms 


求 奇 异 值 


svds 


A12 声音 处 理 函 数 (Sonnd Processing Functions) 
A12.1 常用 声音 函数 (Generation Sound Functions) 


lin2mu 


mulin 


把 线性 声音 信号 转变 为 mu-law 信号 
把 mu-law 信号 转变 为 线性 


把 矢量 转换 成 声音 
标 度数 据 并 作为 声音 演播 


sound 


soundsc 


A12.2 ”特殊 声音 函数 (Sparcstation-Specific Sound Functions) 
auread iE AU 文件 
A12.3 处理 WAV 上 声 文 件 (WAV Sound Functions) 
wavread iE wave 文件 


A13 字符 串 函 数 (Character String Functions) 


A13.1 通用 字符 串 函 数 (General) 


abs ”绝对 值 


eval ”执行 串 形式 的 MATLAB 表达 式 
字符 串 操 作 (String Manipulation) 


A13.2 


deblank ”删除 串 最 后 的 空格 
findstr — 在 一 个 串 中 寻找 一 个 子 串 
lower 把 字符 串 变 成 小 写 
strcat 字符 串 组 合 
strcmp 比较 字符 串 
strempi ”不管 大 小 写 比较 字符 串 
strjust 判断 字符 矩阵 

A13.3 字符 串 与 数值 间 的 转换 (String to Number 
char 建立 字符 矩阵 
int2str ” 把 整数 转换 为 串 
mat2str ”把 矩阵 转换 为 字符 串 
num2str 把 浮 点 数 转换 为 串 


A13.4 数 制 间 的 转换 (Radix Conversion) 


写 AU 文件 


auwrite 


写 wave 文件 


wavwrite 


real 复数 实 部 


strings “字符 串 句柄 
strmatch “寻找 字符 串 可 能 的 匹配 
strncmp 比较 字 串 的 前 N 个 字母 
strrep 替代 一 个 串 中 的 子 串 
strtok 删除 串 中 的 指定 子 串 
strvcat 垂直 合并 字符 串 
symvar ”在 表达 式 中 确定 符号 变量 
upper 把 字符 串 变 成 大 写 
Conversion) 

sprintf 按 格式 把 数字 转换 为 串 
sscanf 按 格式 把 串 转换 为 数字 
str2double ”把 字符 串 转 为 双 精 度数 


str2num 把 串 转换 为 浮 点 数 
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bin2dec ”把 2 进 制 整数 变 成 10 进 制 
dec2bin ”把 10 进 制 整数 变 成 2 进 制 
dec2hex 把 10 进 制 整数 变 成 16 进 制 
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hex2dec ”把 16 进 制 串 变 成 10 进 制 数 
hex2num 把 16 进 制 串 变 成 双 精 度数 


A14 会 层 文件 输入 输出 函数 (Low-level File I/O Functions) 
Al4.1 文件 的 开启 和 关闭 (File opening and Closing) 


fclose ”关闭 文件 

Al4.2 无 格式 输入 输出 (Unformatted I/O) 
fread ”从 文件 中 读 二 进 制 数 据 

A14.3 有 格式 输入 输出 (Formatted I/O) 
fgetl 按 行 从 文件 读 取 数 据 并 清除 文件 指针 
fgets 按 行 从 文件 读 取 数 据 并 保留 文件 指针 

Al4.4 文件 定位 (File Positioning) 
feof 测试 文件 是 否 结束 
ferror 查询 文件 输入 / 输出 错误 状态 
frewind ” 反 绕 文件 

Al4.5 串 的 转换 (String Conversion) 


写 格 式 数据 到 串 


sprintf 


A14.6 特殊 I/O 文件 (Specialized File I/O) 


dimread ”把 ASCII 中 的 数据 读 入 矩阵 
dimwrite ”把 矩阵 写 入 ASCII 文件 
hdf HDF 界面 
imfinfo — 返回 图 形 文件 信息 
imread 从 图 形 文件 读 出 图 形 数 据 
A15 位 函数 (Bitwise Fuctions) 
bitand ”位 和 
bitcmp 4M5 
bitor 位 或 
bitmax 机 器 的 最 大 浮 点 整数 
A16 #574340 wh) XK (Structure Functions) 
deal 处 理 输入 输出 
fieldnames ”结构 的 属性 名 称 
getfield 获取 结构 的 属性 
rmfield 删除 结构 的 属性 
A17 对 象 函 数 (Object Functions) 
class ”生成 对 象 或 返回 对 象 的 类 名 
A18 基 元 数组 函数 (Cell Array Functions) 
cell 生成 基 元 数组 
cellfun 对 基 元 的 每 个 元 素 应 用 函数 
cellstr 用 字符 数组 生成 基 元 数组 


fopen ”打开 文件 
fwrite ”把 二 进 制 数 据 写 入 文件 
fprintf ”把 格式 化 数据 写 入 文件 
fscanf ”从 文件 中 读 格 式 化 数据 
fseek ”设置 文件 指针 
ftell ”得 到 文件 指针 
sscanf ”在 格式 控制 下 读 串 
imwrite 将 图 形 写 入 图 形 文件 


textread 从 文本 文件 读 格 式 化 数据 
wklread 将 LOTUS-123 文件 读 入 矩阵 
wklwrite 将 矩阵 写 入 LOTUS-123 文件 


bitset 
bitshift 
bitget 


bitxor 


给 位 赋值 
移 位 
获取 位 
位 异 或 


setfield 


struct 


设置 结构 的 属性 值 
生成 结构 数组 
把 结构 数组 转 为 基 元 数组 


struct2cell 


isa ”检验 对 象 是 否 属于 某 类 
显示 基 元 数组 

用 图 形 显示 基 元 数组 

把 数值 数组 转换 为 基 元 数组 


celldisp 
cellplot 


num 2cell 
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cell2struct 将 基 元 数组 转换 为 结构 数组 


A19 多 维 数组 函数 (Multidimensional Array Functions) 


cat 数组 组 合 permute ”数组 重组 

flipdim 按 指定 的 维 翻转 数组 reshape ”数组 变形 

ind2sub ”数组 的 下 标 转 换 shiftdim ” 维 数 移 位 

ipermute ”数组 维 数 的 道 变换 squeeze ”删除 数值 为 1 的 维 数 
ndgrid 为 多 维 函数 和 插值 生成 数据 sub2ind ”单个 下 标 

ndims 数组 的 维 数 


A20 ” 作 图 和 数据 可 视 化 (Plotting and Data Visualization) 
A20.1 基本 图 形 (Basic Plots and Graphs) 


bar 垂直 直方 图 plot 直角 坐标 下 画 曲线 
bah — 水平 直方 图 polar 极 坐标 曲线 图 
hist 统计 频数 直方 图 semilogx X 轴 半 对 数 刻 度 曲线 
hold ”保持 目前 的 图 形 semilogy Y 轴 半 对 数 刻度 曲线 
loglog ” 双 对 数 刻度 曲线 subplot ”分 区 作 图 
pie 扇形 图 

A20.2 2424 4% 8) %(Three-Dimensional Plotting) 
bar3 垂直 三 维 直 方 图 quiver 二 维 矢量 场 图 
bar3h 水 平 三 维 直 方 图 quiver3 ”三 维 矢量 场 图 
comet3 ”三 维 芷 星 动 态 轨迹 线 图 slice 切片 图 
cylinder ”生成 圆柱 面 sphere 生成 球面 
fill3 三 维 曲面 多 边 形 填 色 stem3 画 分 离 的 表面 数据 
plot3 三 维 直角 坐标 曲线 图 waterfall ”瀑布 水 线 图 

A20.3 ”图形 注 解 和 网 格 (Plot Annotation and Grids) 
clabel 给 等 高 线 加 标注 plotyy ”在 左 ( 右 ) 边 画 Y 轴 刻 度 
datetick ”生成 刻度 线 数据 title 图 形 标题 
grid 画 坐 标 网 格 线 xlabe X 轴 名 标注 
gtext 用 鼠标 在 图 上 标注 文字 ylabel Y 轴 名 标注 
legend 图 例 说 明 zlabel Z 轴 名 标注 
plotedit ”图 形 编辑 

A20.4 表面 图 、 网 线 图 和 等 高 线 图 (Surface, Mesh and Contour Plots) 
contour SARR surf 三 维 表面 图 
contourc ”等 高 线 计算 surface ”建立 低层 对 象 的 表面 
contourf ”等 高 线 填 色 surfc 带 等 高 线 的 三 维 表面 图 
hidden 隐藏 网 格 线 surfl 带 光 照 的 三 维 表面 图 
meshc 带 等 高 线 的 三 维 网 线 图 trimesh =f Mi E 
mesh 三 维 网 线 图 trisurf 三 角 表 面 图 
peaks 一 个 两 变量 函数 


A20.5 立体 图 (Volume Visualization) 
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coneplot 画 三 维 速度 场 中 的 速度 矢量 
contourslice 在 立体 切片 图 中 画 等 高 线 
isocaps 计算 等 位 面 

isonormals 计算 等 位 面 顶点 法 线 
isosurface 从 体 数据 中 提取 等 位 面 数据 
reducepatch 减 小 块 表面 的 数目 
reducevolume ”在 体 数 据 中 减 小 元 素数 


A20.6 产生 区 域 数 据 (Domain Generation) 


griddata ”数据 栅 格 化 和 表面 拟 合 
A20.7 特殊 作 图 (Specialized Plotting) 
area 面积 图 
box 二 维 或 三 维 图 的 坐标 轴 框 
comet TES BORA E] 
compass 从 原点 出 发 的 复数 矢量 图 
convhull 凸 壳 函 数 
delaunay DELAUNAY 三 角形 化 
dsearch 搜索 最 近 的 DELAUNAY 三 角形 
errorbar 误差 棒 图 
ezcontur ”快速 画 等 高 线 
ezcintourf ”快速 等 高 线 填 色 
ezmesh 快速 作 三 维 网 格 
zemeshc ”快速 三 维 网 格 和 等 高 线 的 结合 
ezplot 快速 函数 作 图 
ezplot3 快速 三 维 参数 作 图 
ezpolar 快速 极 坐 标 图 
ezsurf 快速 三 维 表面 图 
ezsurfc 快速 三 维 表面 和 等 高 线 图 


A20.8 视角 控制 (View Control) 


camdolly 
camlookat 
camorbit 
campan 
campos 
camproj 
camroll 
camtarget 


camup 


移动 相机 和 目标 的 位 置 
观察 特定 的 目标 

相机 目标 的 轨迹 

绕 相机 位 置 旋转 目标 
设置 或 获取 相机 位 置 
设置 或 获取 投影 方式 
绕 观 察 轴 旋 转 相 机 
设置 或 获取 相机 目标 
设置 或 获取 相机 的 顶 矢量 


A20.9 光照 模式 (Lighting) 


camlight 


产生 或 定位 光照 
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shrinkface ” 减 小 块 表面 的 大 小 
smooth3 平滑 3 维 数据 
stream2 计算 2 维 流 线 数据 
stream3 计算 3 维 流 线 数据 
streamline MHAR 
surf2patch ”表面 数据 转 为 块 数据 
subvolume ”从 体 数 据 中 提取 数据 
meshgrid ”为 三 维 图 产生 XY 数据 
feather 复数 矢量 图 
fplot 函数 曲线 图 
inpolygon ”点 在 多 边 形 内 为 真 
pareto PARETO 图 
pcolor 用 颜色 反映 数据 的 伪 色 图 
pie3 三 维 饼 图 
plotmatrix HÆKK 
polyarea 多 边 形 面积 
quiver EHK 
ribbon RIBBON 图 
rose 统计 频数 扇形 图 
scatter 二 维 的 圆 点 图 
scatter3 三 维 的 圆 点 图 
stairs 阶梯 形 曲 线 图 
stem 火柴 杆 图 
tsearch 搜索 Delaunay 三 角形 
voronoi VORONOI 图 
camva 设置 或 获取 相机 的 视角 
camzoom ”放大 或 缩小 相机 的 视野 
daspect 设置 或 获取 数据 各 向 比例 
phaspect ”设置 或 获取 图 形 的 各 向 比例 
view 三 维 图 的 视点 
viewmtx “产生 视角 变换 矩阵 
ylim 设置 或 获取 Y 轴 的 范围 
zlim 设置 或 获取 Z 轴 的 范围 
lighting ”光照 模式 
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lightangle ”光照 的 球状 定位 material 物质 反射 模式 

A20.10 ”颜色 操作 (Color Operations) 
brighten ”控制 色彩 的 明暗 hsv2rgb ”饱和 色彩 数据 转换 红 绿 蓝 数 据 
caxis 彩色 轴 标 度 rgb2hsv ” 红 绿 蓝 数据 转换 饱和 色彩 数据 
colorbar ”显示 颜色 对 应 的 数值 shading 图形 泻 染 模式 
colordef ”设置 颜色 默认 值 spinmap ”颜色 周期 性 变化 操纵 
colormap WEEE surgnorm ”三 维 表面 法 线 
graymon ” 单 色 灰 度 图 的 默认 商 设 置 whitebg ”设置 图 形 窗口 为 白 底 
rgbplot 取 色 曲线 图 

A20.11 彩色 图 (colormap) 
autumn 红 黄 色调 图 hsv 饱和 色彩 图 
bone 蓝 色调 灰 度 图 jet 变异 HSV 色 图 
Contrast 提高 图 像 对 比 度 的 灰色 图 lines 线性 色 度 图 
cool 青 和 品 红 浓 淡色 图 prism 光谱 色 图 
copper 线性 变化 纯 铜 色调 图 spring ”洋红 和 黄色 调 图 
flag 红 白 蓝 黑 交错 色 图 summer REHE 
gray 线性 灰 度 色 图 winter: 蓝 绿 色调 图 
hot 黑 红 黄白 交错 色 图 pink 粉红 色 图 
colorcube ”增强 的 立方 色 图 

A20.12 ”打印 (Printing) 
orient ”设置 走 纸 方 向 printopt ”打印 机 设置 
print ”打印 图 形 或 把 图 存 入 文件 saveas 存储 图 形 文件 

A20.13 —#&45 A 4% 4) Js (Handle Graphics, General) 
copyobj ”复制 对 象 get 获得 对 象 属性 
findobj ”用 规定 的 特性 找寻 对 象 ishandle ”对 图 形 对 象 为 真 
gcbo 获得 当前 对 象 的 柄 rotate 在 给 定 方向 上 旋转 对 象 
gco 返回 当前 对 象 的 句柄 Set 建立 对 象 特 性 


A20.14 产生 图 形 对 象 的 句柄 (Handle Graphics, Object Creation) 


axes 创建 轴 对 象 rectangle BE — AE I 8 
figure AERE AO surface 创建 面 
image ”创建 图 像 text 创建 图 形 中 文本 
line 创建 线 unicontextmenu ”创建 目录 菜单 
patch ”创建 块 

A20.15 产生 图 形 窗口 的 句柄 (Handle Graphics, Figure Windows) 
capture “当前 图 的 屏 捕捉 gcf 获得 当前 图 的 柄 
clc 清除 图 形 窗口 newplot ”下 一 个 新 图 
clf 清除 当前 图 refresh ”更 新 图 像 
close 关闭 图 形 saveas 存储 图 形 


A20.16 j= 44845 4) 45 (Handle Graphics, Axes) 
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axis ” 轴 的 控制 gca ”获得 当前 轴 的 柄 
cda ”清除 当前 轴 
A20.17 对 象 操作 (Object Manipulation) 
reset ” 重 设 对 象 特性 rotate3d ”旋转 对 象 
A20.18 交互 输入 (Interactive User Input) 
ginput ”从 鼠标 得 到 图 形 点 坐标 zoom ”改变 二 维 图 像 大 小 
A20.19 操作 区 (Region of Interest) 
rbbox 擦 除 框 dragrect ”用 鼠标 拖 动 XOR 矩形 框 
drawnow ”屏幕 刷新 
A21 产生 用 户 界面 (Graphical User Interface Creation) 
A21.1 对 话 框 (Dialog Boxes) 


dialog 建立 对 话 框 printdg ”显示 打印 对 话 框 
errordlg ”建立 误差 对 话 框 questdlg 建立 问题 对 话 框 
helpdlg ”显示 帮助 对 话 框 uigetfile 打开 一 个 文件 查询 对 话 框 
inputdlg ”建立 输入 对 话 框 uiputfile 打开 一 个 文件 存储 对 话 框 
listdlg 建立 列表 对 话 框 uisetcolor 用 对 话 框 交互 设置 颜色 
msgbox ”建立 信息 对 话 框 uisetfont 用 对 话 框 交 互 设 置 字体 


pagedlg — 建立 页 面 设计 对 话 柜  warndig 建立 警告 信息 对 话 杠 
A21.2 JH P xR (User Interface Objects) 

uicontrol 建立 用 户 界 面 控 制 ”menu 建立 用 户 输入 选择 对 话 框 
uicontextmenu 建立 目录 菜单 uimenu 建立 用 户 使 用 菜单 控制 

A21.3 ”其它 指令 (Other Functions) 

dragrect “用 鼠标 拖 动 矩形 框 selectmoveresize ” 选择、 移动 、 更 改 对 象 大 小 


gcbo 返回 对 象 句柄 textwrap 对 给 定 的 控制 返回 打包 的 字 串 
getframe ”获得 影片 动画 图 像 的 帧  uiresume;uiwait ”同时 使 用 ， 控 制程 序 的 执行 
movie 播放 影片 动画 waitbar 显示 等 待 工具 条 


moviein 影片 动画 内 存 初始 化 waitforbuttonpress 等 待 键盘 命令 
rbbox 在 选 定 区 域 建立 擦 除 框 
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B1 


B2 


B3 


B4 


B5 


B6 


B7 


B8 


附录 B 


微 积分 计算 (Calculus) 
dif (W^) 

int 积分 

limit RARER 


线性 代数 (Linear Algebra) 
diag 建立 或 提取 对 角 元 
tru 上 三 角 和 矩阵 

tril 下 三 角 和 矩阵 

inv RAEE 

det 行列 式 的 值 

rank 矩阵 的 秩 号 

rref 简化 梯形 阵 


化 简 (Simplification) 

simplify 函数 化 简 

expand ”函数 展开 

factor 分 解 因 式 

collect ”合并 同类 项 

simple ”简化 表达 式 

解 方 程 (Solution of Equations) 
solve 解 方程 

dsolve — 解 微分 方程 


fs 


taylor 
jacobian 


symsum 


null 
colspace 
eig 

svd 
jordan 
poly 


expm 
numden 
horner 
subexpr 


subs 


finverse 


compose 


变 精度 算法 (Variable Precision Arithmetic) 


vpa 可 变 精度 算法 


积分 变换 (Integral Transforms) 
fourier ” 傅 里 叶 变 换 

laplace ” 拉 普 拉 斯 变换 

ztrans Z 变换 

转换 (Conversions) 

double 符号 矩阵 转换 为 双 精 度 
char 符号 对 象 转换 为 字符 串 
基本 操作 (Basic Operations) 

sym 建立 符号 对 象 

syms 建立 符号 对 象 的 快捷 方法 


findsym ”确定 符号 变量 


digits 


ifourier 


ilaplace 


iztrans 


sym2poly 符号 多 项 式 转换 为 系数 矢量 
poly2sym 


latex 
ccode 


fortran 


泰勒 展开 
29:4 p e 
求 级 数 和 


ZIE PERJA 

列 空间 的 基 

求 本 征 值 和 本 征 矢 量 
奇异 值 分 解 
约 当 标准 型 
特征 多 项 式 

矩阵 指数 函数 


找 表 达 式 的 分 子 分 母 
CEDAR 

用 一 个 符号 表示 表达 式 中 
共同 的 部 分 重 写 表 达 式 
符号 变量 的 替代 


求 反 函 数 
求 复合 函数 


设 定 变量 精度 


逆 傅 里 叶 变 换 
3 Z 变换 


系数 矢量 转换 为 符号 多 项 式 


符号 表达 式 的 LaTex 表示 
符号 表达 式 的 C 语言 表示 
符号 表达 式 的 FORTRAN 表示 


| 


符号 
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pretty ”符号 表达 式 的 精美 显示 
B9 特殊 函数 (Special Functions) 
sinint ”正弦 积分 
cosint ”余弦 积分 
B10 字符 串 工具 (String handling utilities) 


isvarname 检验 有 效 的 变量 名 


EE 
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zeta 


RS Zeta 函数 
lambertw Lambert W 函数 


vectorize 符号 表达 式 的 矢量 化 


Bll 教学 和 作 图 上 的 应 用 (Pedagogical and Graphical Applications) 


rsums 求 Riemann 和 

ezcontour MÆR 

ezcontourf 填 色 的 等 高 线 图 

ezmesh 画 网 格 图 

ezmeshc 有 等 高 线 的 网 格 图 

ezplot 画 函 数 、 隐 函数 及 参数 曲线 图 形 


B12 功能 演示 (Demonstrations) 


symintro 符号 工具 箱 入 门 
symcaledemo ” 微 积分 计算 演示 
symlindemo ”符号 线性 代数 演示 


B13 MAPLE 接口 (Access to Maple) 


maple 进入 MAPLE 内 核 
mfun MAPLE 函数 的 数值 表示 
mfunlist MAPLE 函数 表 


ezplot3 空间 曲线 图 
ezpolar 极 坐 标 图 

ezsurf 画 表面 图 

ezsurfc 有 等 高 线 的 表面 图 
funtool 函数 计算 器 
taylortool 泰勒 展开 计算 器 


symvpademo 可 变 精 度 计 算 演示 
平面 旋转 研究 
symeqndemo 人 解 符 号 方程 


symrotdemo 


MAPLE 的 在 线 帮助 
安装 MAPLE 程序 
(需要 扩展 符号 工具 箱 ) 


mhelp 


procread 
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